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SEQ 0001 


. 
os 


a] 


GENERAL INFORMATION 


to 


-4 


THIS DIAGNOSTIC OCCUPIES 14. 5K WORDS OF MEMORY AND IS COMPATIBLE WITH 

BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP. AND CAN BE CHAINED 
UNDER XXDP, ACT AND APT IN ACT MODE (SEE “CREATE CORE IMAGE” COMMAND 

BELOW FOR DETAILS OF CHAINING PROCEDURE). IT 1S A SINGLE PROGRAM 

FROM THE STANDPOINT OF THE DIAGNOST!C USER. BUT WE HAVE INCORPORATED INTO 
1T A CONTROL MODULE WHICH WILL LATER BE RELEASED INDEPENDENTLY AS A 
DIAGNOSTIC SUPERVISOR. 


WHEN THIS DIGGNOSTIC IS STARTEG AT ADDRESS 200. CONTROL GOES 

Fi®ST TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN “HARD CORE" 
aVESTIONS ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMMAND 

MODE. 'tNDICATED BY A PROMPT CHARACTER (DS A>). AT COMMAND MODE THE OPERATOR 
MAY ENTER ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 


THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION 
A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERV'CE OF THE SUPERVISOR 
ASSEMBLY LISTING. AND IT MAY BE CONSULTED IN EVENT OF A SOFTWARE PROBLEM 


DIAGNOSTIC INFORMATION 


THE RLO1 ORIVE COMPATABILITY TEST IS A PDP-11 (LSI-11) BASED 
PROGRAM THAT WILL TEST INTERCHANGABILITY OF CARTRIDGES BETWEEN 
DRIVES. THE TEST PERFORMS WRITES. READS. OVERWRITES, ADJACENT 
CYLINDER WRITES TO PROVE COMPATABILITY. 


TSTEM REQUIREMENTS 


eee ee em em ee ee ee ere 


FOP-11/LS1-11 PROCESSOR WITH 16K OR MORE OF CORE 
CONSOLE DEVICE (LA30,LA36,VT5O. ETC. ) 

FLIL./RLV11 CONTROLLER(S) 

1 - 4 RLO1 DRIVES 

1 RLOIK CARTRIDGE WITH BAD SECTOR FILE 

KWI1P, KWI1L COPTIONAL) 

LINEPRINTER (OPTIONAL ) 


SOFTWARE REQUIREMENTS 


ed 


MAINDEC-11-DZRLF-A 


FELATED DOCUMENTS AND STANDARDS 


SEQ 0002 


RLOI USERS MANUAL (EK-RLO1-UG-PRE) 
XXDP USERS MANUAL 
DIAGNOSTIC SUPERVISOR PROGRAM LISTING 


1.4 DIRGNOSTIC HIERARCHY PREREQUISITES 


to 


.0 


1 


THE RLO1 SUBSYSTEM(S) SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 
PROGRAMS: 


MAINDEC-11-OZRLA 
MAINDEC-11-O2RLB 
MAINDEC-11-OZRLC 
MAINDEC-11-OZRLO 
MAINDEC-11-DZRLE 


BISUMP TIONS 


THE HARDWARE OTHER THAN THE RLOI SUBSYSTEM 1S ASSUMED TO WORK 
PROPERLY. FALSE ERRCRS MAY BE REPORTED IF THE PROCESSOR. ETC.. 
0G NOT FUNCTION PROPERLY. 


OPERATING INSTRUCTIONS 


FOLLOW STANDARD DEC PROCEDURES TOC LOAD THE PROGRAM ‘XxDP. 
ABSOLUTE LOADER, UPD1. UPD2) 


_2 STARTING PROCEDURES 


THE PROGRAM STARTS AT LOCATION 200. USE STANDARD DEC PROCEDURES 
TO START THE PROGRAN. 


.3 STEPS FOR QUICK AND SIMPLE EXECUTION 


THE DIAGNOSTIC CAN BE EXECUTED STANDALONE WITHOUT PERDING THE REMAINDER OF THIS 
DOCUMENT AS FOLLOWS: 


A) LOAD THE DIAGNOSTIC 

B) START AT ADDRESS 200 

C) ANSWER THE HARDCORE QUESTIONS 

D) RECEIVE PROMPT (DS A>) 

E) ENTER STAXCR> 

F) ANSWER HARDWARE QUESTIONS 

G) GET END OF PASS MESSAGES OR ERROR MESSAGES 
H) TO END EXECUTION. ENTER CONTROL/C 


SEQ 0003 


2.2 SPECIAL ENVIRONMENTS 


THE ENVIRONMENTS THIS PROGRAM WILL RUN IN ARE XXDP, ACT. AND SL'NE. 
2.3 PROGRAM OPTIONS 


REKEKAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA A AAA AAA AAA AAA AAA AA AKE 
STACRT)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST>/EOP: <INCR> 
EHEKEKAAAAAKAKAA AKA AAA AA AAA AAAS A AAA AAA AAA AAA AAA AAA AA AKA AAA KAA AAA AAAS 


2.3.1.1 TESTS SWITCH (/TESTS: <TEST-LIST>) 


<TEST-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5: 8-10 ETC. ) SEPARATED BY COLONS, SPECIFYING 
WHICH TESTS IT 1S DESIRED BE EXECUTED. THE TEST NUMBERS RANGE FROM 

1 TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED 
IN ANY ORDER. TESTS WILL BE EXECUTED IN NUMERICAL ORDER REGARDLESS 

OF ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. ON 
THIS AND ALL SWITCHES. THE ANGLE BRACKETS <> ARE PUNCTUATION USED IN THE 
DEFINITION ONLY. AND ARE NOT TO BE TYPED BY THE OPERATOR. SEE EXAMPLE 
AT END OF 2. 3.1. 


2.3.1.2 PASS SWITCH (/PASS: <PASS-CNT>) 


<PASS-CNT> IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF PASSES 

A PASS 1S DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED TESTS) 
AGAINST ALL UNITS SUBMITTED. THE DEFAULT IS NON-ENDING EXECUTION: IE, 

EXIT 1S ACCOMPLISHED EITHER BY TYPING A CONTROL/C OR BY A HALT ON ERROR 

BEING ENCOUNTERED. IN WHICH CASE WE RETURN TO COMMAND MODE. SEE EXAMPLE 

AT END OF 2. 3.1. 


2.3.1.3 FLAGS SWITCH (/FLAGS: sn LIST>) 
<FLAG-LIST> IS A SE QUENGis DF ELEMENTS OF THE FORM <FLAG>, <FLAG=1>. 


OR’ <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS ONE OF 
THE FOCLOWING VALUES: 


HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR 1S ENCOUNTERED 
LOE LOOP ON ERROR. CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 


WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, 
SUBTEST. OR TEST) CONTAINING THE ERROR 


IER INHIBIT ERROR REPORTING 

1BE INHIBIT BASIC ERROR REPORTS 

XE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 


PNT PRINT NUMBER OF TEST BEING EXECUTED 

BOE BELL ON ERROR 

UAM RUN IN UNATTENDED MODE. BYPASSING MANUAL INTERVENTION TESTS 
ISR INHIBIT STATISTICAL REPORTS 

1OR INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 


THE FLAGS NAMED OR EQUATED TO 1 ARE SET. THOSE EQUATED TO 0 


SEQ 0004 


mh, 
ARE CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS hes 
1S NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF 2.3.1 


2.3.1.4 END OF PASS SWITCH (/EOP: <INCR>) 


<INCR> 1S A DECIMAL NUMBER INDICATING HOW OFTEN (CIN TERMS OF PASSES) 
1T 1S DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE DEFAULT IS 
AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF 2. 3.1. 


z. 3.1.5 EFFECT OF COMMAND 


THE EFFECT OF THE START COMMAND IS TO INITIATE THE HARDWARE PARAMETER 
DIALOGUE, THE SOFTWARE PARAMETER DIALOGUE. AND THEN THE DIAGNOSTIC 
TESTS THEMSELVES. (THERE ARE NO SOFTWARE QUESTIONS FOR THIS PROGRAM. ) 


THE HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION 

“gs UNITS?" TO WHICH THE OPERATOR REPLIES WITH A DECIMAL 

NUMBER N FROM i TO 64. THE TERM “UNIT” REFERS TO THE DEVICE 

TO WHICH THIS SERIES OF DIAGNOSTICS 1S DEDICATED. FOLLOWING THIS ARE 
THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL BE BUILT. EACH 
P-TABLE 1S A CORE-RESIDENT TABLE CONTAINING 

ALL THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR MUST SUPPLY 
N (NUMBER OF UNITS) VALUES FOR EACH QUESTION. HE MAY 

DO THIS BY GIVING ONE ANSWER TO EACH QUESTION (IN WHICH CASE THE 
SERIES OF QUESTIONS WILL BE POSED N TIMES) OR BY GIVING N VALUES, 
SEPARATED BY COMMAS. TO EACH QUESTION (SERIES WILL BE POSED ONCE) 
EACH GUESTION IS FOLLOWED BY THE RESPONSE RADIX (D FOR DECIMAL. B 

FOR BINARY. O FOR OCTAL, L FOR YES/NO) IN PARENTHESES AND THE DEFAULT 
VALUE AFTER THE PARENTHESES 


FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS TO 
BUILD THE SOFTWARE TABLES, WHICH DEFINE THE MODE (QUICK VERIFY ETC. ) 
THAT THE DIAGNOSTIC WILL EXECUTE IN. 


AT THE POINT WHERE THE QUESTION "®# UNITS?" IS ANSWERED. 

CORE STORAGE 1S ALLOCATED FOR THE P-TABLES. AND IF THERE IS NOT ENOUGH 
TO ACCOMMODATE THEM THE MESSAGE “TOO MANY UNITS" IS ISSUED. IN THIS CASE 
THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO TEST ALL UNITS 


EXAMPLE: 
STA/TESTS: 1: 2-4: 6: 8-10/PASS: 3/FLAGS: 1ER: HOE=1: UAM: LOE 


THIS COMMAND WILL CAUSE THREE PASSES TO BE MADE. EACH PASS CONSISTING 

OF TESTS 1,2,3.4,6.8,9. AND 10 EXECUTED AGAINST ALL UNITS. THERE !5 NO 
DIFFERENCE BETWEEN SAYING <FLAG> AND SAYING <FLAG=1>. THE 

NOTATION <FLAG=0> 1S MEANINGFUL ONLY ON A COMMAND OTHER THAN 

START TO CLEAR A FLAG THAT WAS PREVIOUSLY SET. NOTE THAT 

ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED. 


2. 3.2 RESTART COMMAND 


Petes ese sees eee sess ee eee este esos esos ses se 5053503530593 0 3850503055500 2 90528 F | 
RES(TART)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST>/UNITS: <UNIT-LIST> 
2000000000000 20000 


2.3.2.1 TESTS, PASS, AND FLAGS SWITCHES 


SEQ fay 


Oo 


G 1 
<TEST-LIST>. <PASS-CNT>. AND <FLAG-LIST> ARE AS IN THE START COMMAND. 
2.3.2.2 UNITS SWITCH (/UNITS: CUNIT-LIST>) 


<UNIT-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1,2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5, 8-10 ETC.) SEPARATED BY COLONS. INDICATING 
WHICH UNITS IT 1S DESIRED BE TESTED. THE NUMBERS MAY RANGE FROM 1 THRU 
N (N IS THE NUMBER OF UNITS SPECIFIED IN THE PREVIOUS START COMMAND). 
THE NUMBER INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS ENTERED 
DURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 

SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP COMMAND. SEE THE 
DISCUSSION OF ADD AND DROP COMMANDS BELOW. DEFAULT 

1S TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A DROP COMMAND. 


SEQ 0006 


5 EFFECT OF COMMAND 


THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE P-TABLES 
FROM THE PREVIOUS START COMMAND (THERE MUST HAVE BEEN ONE) ARE USED, IN- 
STEAD OF NEW ONES BEING BUILT. THE UNITS SWITCH GIVES THE ABILITY TO 
SELECT A SUBSET OF THESE. THE SOFTWARE DIALOGUE MAY OPTIONALLY BE RE- 
EXECUTED (OPERATOR WILL BE ASKED). THE COMMAND CAN BE USED AFTER COMMAND 
MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL WAYS: A) THE RE- 
QUESTED NUMBER OF PASSES HAVE BEEN MADE 8B) AN ERROR WAS ENCOUNTERED 

WITH THE HALT ON ERROR FLAG SET C) A CONTROL/C WAS ENTERED BY THE 
OPERATOR. 


2. 3. 3 CONTINUE COMMAND 


t 

ii 
to 
us 


KKK A AAA AAA AAA AAA AAA AAA AAAS 
CON( TINUE) /PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 
KKKKKKAKA AAA AAA AAA AKA AAA AAA AAA 


2.3.3.1 PASS SWITCH (/PASS: <PASS-CNT>) 
<PASS-CNT> 1S SAME AS IN START COMMAND, BUT THE DEFAULT IS THE UN- 


SATISFIED PASS-CNT FROM THE PREVIOUS START OR RESTART. IF NONE RE- 
MAINS. THE DEFAULT 1S NON-ENDING EXECUTION 


J 
a] 
i 


3.2 FLAG SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> 1S SAME AS IN START COMMAND, BUT UNSPECIFIED FLAGS PE- 
TAIN THEIR CURRENT VALUE. 


3.3 EFFECT OF COMMAND 


THE CONTINUE COMMAND WILL ACT LIKE A RESTART COMMAND IN THIS 
PARTICULAR PROGRAM. 


t 
us 
l 


2.3.4 PROCEED COMMAND 


KEKKAKAAAAAAAEAAAAAA AAA AEE 
PRO(CEED)/FLAGS: <FLAG-LIST> 
KEAKKKKEAE AAA AAA RAA AAAS 


2.3.4.1 FLAGS SWITCH (/FLAGS: <FLAG-LIST>! 





oo 


H 1 
<FLAG-LIST> 1S AS IN THE START COMMAND. BUT UNSPECIFIED FLAGS RETAIN 
THEIR CURRENT VALUE. 


2.3.4.2 EFFECT OF COMMAND 
PROCEED MUST FOLLOW A START, RESTART, OR CONTINUE. COMMAND MODE 


MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT OF THE 
COMMAND 1S TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 


ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 


2.3.5 CREATE CORE IMAGE COMMAND 


Pattee ttt etst ett teste tects te tet t eet eect te sees ees 
CC1/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST> 
ROS 202229938 8 8 6 6 3d 6 6 0% > 6 0 9 00 6900955055590 9 099950555505) 


23.5.1 TESTS. PASS. AND FLAGS SWITCHES 
<TEST-LIST>, <PASS-CNT>):-ZFLAG-LIST>, AND ARE AS 
IN THE START COMMAND. EXCEPT THAT THE UAM (UNATTENDED MODE) FLAG 
DEFAULTS TO THE SET POSFTION. 


=~ 
2.3.5.2 EFFECT OF COMMAND 


THIS PROGRAM 1S NOT CHAINABLE OUE TO THE MANUAL INTERVENTION 
INVOLVED. 


2. 3.6 ADD COMMAND 


KKXKKKKKARAKARAAAKA EE “- 
ADD/UNITS: <UNIT-LIST> 
KKKKKKK ERA AK AAA AAA ES 


ae 
2.3.6.1 UNITS SWITCH (JUNI TRECUNIT-LISTD 

CUNIT-LIST> IS AS IN THE RESTART COMMAND. 
2.2.6.2 EFFECT OF COMMAND . 

THE UNITS SPECIFIED ARE ADDED TO THE TEST SEQUENCE. EACH UNIT 


MUST HAVE A P-TABLE IN MEMORY DUE TO AN EARLIER HARDWARE DIALOGUE 
TH!S COMMAND MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS 


SWITCH MUST SE SPECIFIED. THE ADD COMMAND 1S MEANINGFUL ONLY FOR UNITS 


THAT WERE PREVIOUSLY DROPPED 
2. 3. 7 DROP COMMAND 


KKK AAA AE RAAT TED 

DROCP)/UNITS: <UNIT-LIST> 

HHAAKAEAAAAARA AREA AAAS 

2.3.7.1 UNITS SWITCH (/UNITS: <UNIT-LIST>? 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND 


2.3.7.2 EFFECT OF COMMANE 


SEQ 0007 


oo 


— 
THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING. THE UNITS WILL 
BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START COMMAND. 
THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND MUST BE 
FOLLOWED BY A RESTART OR A CONTINUE COMMAND 


2.3.8 PRINT COMMAND 


KKEKKEK 
PRICNT) 
OOEKEEK 
23.8.1 EFFECT OF COMMAND 


ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED. THE 
ISP CINHIBIT STATISTICAL REPORTING) FLAG iS CLEARED 


= 3.3 DISPLAY COMMAND 


b2 2288529598 2 9 oo 2 8 00 0 0 2% 8 3 | 

DISCPLAY) “UNITS: <UNIT-LISTD 

1229909 05535955 95550588098 8) 

2.3.9.1 UNITS SWITCH (/UNITS: <UNIT-LIST>) 
CUNIT-LIST> 1S AS IN THE RESTART COMMAND 

2.3.9.2 EFFECT OF COMMAND 
THE HARDWARE P-TABLES FOP ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR “DROP” COMMAND ARE SO DESIGNATED 


2. 3.10 FLAGS COMMAND 


OKEKEEE 
FLAGS) 
ee KEKE 
2.7.10 1 EFFECT OF COMMAND 
THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED 


23.11 ZFLAGS COMMAND 


a. 
KXKAKKKE 
ZFL (AGS) 
KXKKKKKEK 
2.3.11. 1 EFFECT OF COMMAND 
ALL FLAGS ARE CLEARED 


2.3.12 HARDWARE PARAMETERS 


SEQ 0008 | 


[nt 


J. 1 
THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 


VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT SEQ 0009 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 
RLi1 (L) Y? 


ANSWER YES(Y) IF YOU HAVE AN RL11 CONTROLLER, NOCN) IF YOU 
HAVE AN RLV11 CONTROLLER. 


BUS ADDRESS (0) 1744007 

ANSHER WITH THE BUS ADDRESS OF THE CONTROLLER. 

VECTOR (0) 3307 

ANSHER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BP LEVEL (0) 5? 

ANSHER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) 07 | 
ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 


2.3.13 SOFTWARE Pi °AMETERS 


THERE ARE NS. SO TWARE PARAMETERS 
2. 3.14 EXTENDED DISCUSSION OF P-TABLE DIALOGUE 


THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE FOLLOWING 
DISCUSSION OF WHAT HAPPENS INTERNALLY. 


AS SOON AS THE QUESTION "# UNITS?” IS ANSWERED (WITH THE NUMBER 

N. SAY) SPACE IN CORE 1S ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT. AND THERE IS A ONE-TO ONE CORRESPONDENCE BETWEEN 
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT. 


ON THE FIRST TRIP THRU THE QUESTIONS. ALL OF THE SLOTS IN ALL OF THE 

P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT VALUES 

IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED IN THE P-TABLES 
(ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE BEGINNING WITH THE 
FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED. THE LAST VALUE 

IN THE STRING BECOMES THE NEW DEFAULT AND IS USED THEN AND THERE TO Fie 

THAT SLOT IN THE REMAINING P-TABLES. 


ON SUBSEQUENT TRIPS THRU THE QUESTIONS. THE SAME PROCESS 1S CARRIED OUT, 
EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT VALUE 
IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE PLAYED 
IN THE FIRST TRIP. 


THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS RECEIVED 
N EXPLICIT VALUES FROM THE OPERATOR. 


IN GIVING A STRING OF VALUES. COMMAS WITHOUT INTERVENING VALUES MAY BE USED 
TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 


oo 


K 1 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE SEQ 0010 
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANSLATES TO THE 

STRING 6.7.8,9,10 (AN INCREMENT OF 1). IF THE VALUES ARE ADDRESSES. THE 

SAMPLE RANGE TRANSLATES TO THE STRING 6.8.10 (AN INCREMENT OF 2). 


NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET OF 
P-TABLES. ASSUME THAT WE HAVE 64 UNITS. AND THAT THERE ARE THREE HARDWARE 
PARAMETERS FOR EACH (THREE SLOTS IN THE P-TABLE. THREE HARDWARE QUESTIONS 
iN THE DIALOGUE). LET THE DESIRED VALUE FOR THE FIRST PARAMETER 

BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED VALUE FOR THE SECOND 
PARAMETER BE EQUAL TO THE UNIT NUMBER (1,2,3,...,.64) EXCEPT FOR UNIT 

50, WHICH SHOULD RECEIVE THE VALUE 49. LET THE DESIRED VALUE FOR THE THIRD 
fog 1 ie NUMBER 76 FOR THE FIRST 20 UNITS AND THE NUMBER 77 FOR THE 
L 4 UNITS. 


THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
# UNITS (D) 7? 64 


UNIT 1 

<QUESTION 1> ? 75 
“QUESTION 2> ? 1-20 
<QUESTION 3> ? 76 


UNIT 21 

<QUESTION 1> ? 

<QUESTION 2> ? 21-49.,51-64 
<QUESTION 3> ? 77 


THE FIRST TIME THE SERIES 1S ASKED. SLOT ONE RECEIVES A 75 IN ALL 

64 TABLES. SLOT TWO RECEIVES THE VALUES 1-2,3,...,.20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A CONSTANT 76 
IN ALL 64 TABLES 


THE SECOND TIME THRU THE SERIES. TABLES 21 THRU THE END ARE GOING TO 

BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR THE 
THE OPERATOR IN THE FORM “UNIT XX" AT THE BEGINNING OF EACH SERIES) 
QUESTION 1 1S RESPONDED TO BY A <CR>,. SO SLOT ONE STAYS 

AT CONSTANT 75 IN TABLES 21 THRU 64. SINCE NO NEW EXLICIT VALUES ARE TYPED 
IN. SLOT TWO GETS THE VALUES 21,22,23....-49 IN TABLES 21 THRU 49, AND 
GETS A 49 IN SLOT 50, AND GETS THE VALUES 51,52,53,...,64 IN TABLES 

51 THRU 64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 


THE DIALOGUE 1S TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION 
(NAMELY QUESTION 2) 


2.4 EXECUTION TIMES 


THE EXECUTION TIME IS VARIABLE. DEPENDENT ON OPERATOR. 
3.0 ERROR INFORMATION 


ERROR INFORMATION 1S COMPLETE IN GIVING ALL INFORMATION NECESSARY. 
ALL REGISTERS ARE GIVEN AS WELL AT TRACK, SECTOR AND DRIVES 
INVOLVED IN ERROR. 


on 


3.1 ERROR REPORTING 


ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DEVICE. ERROR 
~ parle ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT 
\$S: 


DZRL? XXX ERR YYYYY TST 222 SUB PPP PC: RRRRRR 
WHERE: 


? 1S PROGRAM LETTER 
XXX 1S SFT - SOFT ERROR 
HRD - HARD ERROR 

DV FAT - DEVICE FATAL ERROR 

SYS FAT - SYSTEM FATAL ERROR 
YYYYY 1S THE ERROR NUMBER 
222 1S THE TEST NUMBER 
PPP 1S THE SUBTEST NUMBER 
RRRRRR 1S THE PROGRAM LISTING LOCATION 


ERROPS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR 
ALONG WITH A ONE LINE DESCRIPTION AND RELEVENT DATA. 


EXAMPLE: 

ONE LINE DESCRIPTION 

COPTIONAL SECOND LINE) 

(OPTIONAL THIRD LINE) 

BEFORE CS: XXXXXX BA: XXXXXX DA: XXXXXX MP: XXXXXX 
AFTER CS: XXXXXX BA: XXXXXX DA: XXXXXX MP: XXXXXK 
OTHER PERTINENT INFORMATION IS GIVEN AT THIS TIME. 


REGISTER DESCRIPTIONS CAN BE FOUND IN SECTION 5.0. 
ERROR DESCRIPTIONS 


ERROR READING SECTOR 

ERROR WAS ENCOUNTERED WHILE TRYING TO READ VERIFY THE 

SECTOR AFTER IT WAS WRITTEN BY THE SAME DRIVE. 

MINIMUM OF TWO DRIVES REQUIRED 

THE PROGRAM REQUIRES AT LEAST TWO DRIVES TO PROVE COMPATABILITY 


MAXIMUM OF FOUR DRIVES ALLOWED 
THE PROGRAM ONLY ALLOWS A MAXIMUM OF FOUR DRIVES 


CAN'T FIND FIVE ADJACENT TRACKS 


THE PROGRAM REQUIRES TEN SETS OF FIVE ADJACENT TRACKS AT 
PREDETERMINED SPOTS ACROSS THE PACK. IT WAS UNABLE TO F!ND 
FIVE COMPLETELY GOOD ADJACENT TRACKS IN THE LifiiTS GIVEN. 


a 


SEQ 0011 


Ooo 


ERROR WRITING SECTOR 
te WAS ENCOUNTERED WHILE TRYING TO WRITE THE GIVEN 


SEQ 0012 


OVERWRITE ERROR 


AN ERROR WAS ENCOUNTERED WHILE TRYING TO READ DATA AFTER AN 
OVERWRITE BY ONE DRIVE. BOTH DRIVES INVOLVED ARE GIVEN. 


READ RECOVERY ERROR 


AN ERROR WAS ENCOUNTERED WHILE TRYING TO RECOVER ANOTHER 
DRIVES DATA. 


ADJACENT TRACK TEST 


AN ERROR WAS ENCOUNTERED WHILE IN THE ADJACENT TEST PART. 
A FURTHER DESCRIPTION IS G!VEN 


.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG: HOE. THERE ARE NO OTHER HALTS. 


.0 PERFORMANCE AND PROGRESS REPORTS 


. 1 PERFORMANCE REPORTS 


THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS 


.2 PROGRESS REPORTS 


ee ee 


THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS 


0 DEVICE INFORMATION TABLES 


THE RL11/7RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4) 
REGISTERS FOR CONTROL OF THE SUBSYSTEM. 


RLCS - CONTROL AND STATUS REGISTER (XXXXxXO) 


5 - COMPOSITE ERROR 

4 - DRIVE ERROR 

3 - NON EXISTANT MEMORY ERROR 

2 - HEADER NOT FOUND (WITH BIT 10 SET) 
- DATA LATE (WITH BIT 10 CLEAR) 

11 - HEADER CRC (WITH SIT 10 SET) 


Lon Tan ] 





- DATA CRC (WITH BIT 10 CLEAR) 


T 10 - OPERATION INCOMPLETE 

T 978 - DRIVE SELECT (0-3) 

T 7 = CONTROLLER READY 

T 6 - INTERRUPT ENABLE 

T 5 - EXTENDED BUS ADDRESS (B! 
T " - EXTENDED BUS ADDRESS (BI 
T FUNCTION CODE 


O - NOP (POP-11) MAINT (L 
1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

5 - WRITE DATA 

. - READ DAT 


» BIT OQ - DRIVE READY 


T 17) 
T 16) 


St-11) 


A 
READ WITHOUT HEADER COMPARE 


“PLBA - BUS ADDRESS REGISTER ‘XXXXX2 


BITS 15-1 BUS ADDRESS OF DATA TRANSFER 


,BIT O SHOULD BE 0 


? — - DISK ADOPESS REGISTER (XXxXX4) 


BIT 15 - MUST BE ZEROCO) 


BIT 14-7 - CYLINDER ADDRESS FOR 7 


BiT 6 - SURFACE FOP TRANSFER 
BiT 5-0 - SECTOR FOR TRANSFER (0- 


FOR SEEK FUNCTION 


15 - MUST BE ZERO(O) 

14-7 - DIFFERENCE TO NEW CYL! 
6-5 - MUST BE ZEROCO? 

4 - SURFACE 

3 - MUST BE ZERO 

2 - SEEK DIRECTION( { - IN J’ 
1 - MUST BE ZERO 

0 - MUST BE ONE(1) 


FOR GET STATUS FUNCTION 


DOOM mmmw 
444444 ot ot a 


BIT 15-4 - IGNORED SHOULD BE ZERC 
BiT 3 - DRIVE RESET 

BIT 2 - MUST BE ZERO 

BiT 1 - MUST BE ONE 

BiT 0 - MUST BE ONE 


were em em em em mr mem ew em mm emer meer ree 


RANSFER 
47) 


NDER 


0 - OUT ) 


— ——— 


oo 


aa 


FOR READ/WRITE FUNCTION 


BIT 15 - O - WORD COUNT(TWO'S COMPLIMENT) 
FOR READ HEADER FUNCTION 


BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 


- ZERO WORD (SECOND READ) 
- HEADER CRC (THIRD READ) 


FOR GET STATUS FUNCTION 


HAS DRIVE STATUS 


BiT 15 
BiT 14 
Sit 13 
BIT 12 
BiT 11 
BiT 10 
BIT 9 
BIT 8 
BiT 7 
BIT 6 
BIT 5 
BIT 4 
BIT 3 
BIT 2- 


WRITE DATA ERROR 
CURRENT HEAD ERROR(CHE) 
WRITE LOCK STATUS(WL) 
SEEK TIME OUT(SKTO) 
SPIN ERROR(SPE) 

WRITE GATE ERROR(WGE) 
VOLUME CHECK(VC) 

DRIVE SELECT ERROR(DSE) 
RESERVED(O) 

SURFACE 

COVER OPEN 

HEADS HOME 

BRUSHES HOME 


O -STATE BITS 


2 - BRUSH CYCLE 

3 - LOAD HEADS 

4 - SEEK - TRACK COUNTING 
5 - SEEK - LINEAR MODE 

6 - UNLOAD HEADS 

7 - SPIN DOWN 


TEST DESCRIPTION 


THE FOLLOWING IS A BREIF DESCRIPTION OF THE WAY THE PROGRAM 
EXECUTES. THE PROGRAM WILL CHECK COMPATIBILITY BETWEEN 2 - 4 
DRIVES USING THE SAME RILO1K CARTRIDGE. THE PROGRAM WILL ASK THE 
OPERATOR TO SEQUENCE THE PACK BETWEEN THE DRIVES GIVEN IN THE 
FOLLOWING MANNER. 


PLACE PACK IN DRIVE N ON CONTROLLER X AND LOAD 
UNLOAD DRIVE N ON CONTROLLER X 

PLACE PACK IN DRIVE N+1 ON CONTROLLER X AND LOAD 
UNLOAD DRIVE N+1 ON CONTROLLER X 


SEQ 0014 


0oO 


THE PROGRAM WILL SEQUENCE IN THE ORDER THAT WAS GIVEN IN THE 
HARDWARE QUESTIONS. |. €E. 


DRIVE 7? 0.1,2,3 
PROGRAM WILL SEQUENCE 0,1,2,3,2,1,0 
DRIVE 7? 1,0,3,2 
PROGRAM WILL SEQUENCE 1,0,3,2,3,0,1 
WHEN THE FIRST DRIVE IS LOADED THE PROGRAM WILL ATTEMPT TO 
FIND TEN SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS 
THAT CONTAIN NO BAD SECTORS USING THE BAD SECTOR FILE. 
THE 10 SPOTS ARE: ON BOTH SURFACES, INNER, OUTER, MIDDLE. 
ONE QUARTER AND THREE QUARTERS. AFTER THIS IS 


DONE THE OVERWRITE TEST IS PREPARED(FIRST DRIVE CAN'T OVERWRITE) 
AS WELL AS THE ADJACENT TEST 


AS THE PACK IS CYCLED BETWEEN DRIVES THE FOLLOWING CHECKS 
RRE MADE: 
EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE 
EACH DRIVE CAN RECOVER EACH OTHERS DATA 


EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER 
DRIVE WITHOUT DISTURBING THE OTHER'S DATA. 


READS AND WRITES TAKE PLACE AFTER SEEKS FROM 
BOTH DIRECTIONS. 


ADJACENT WRITES TAKE PLACE TO BOTH SIDES OF EACH WRITE 
TESTS ARE PERFORMED AT ALL TEN SPOTS ACROSS THE PACt 


—————~ 


SEQ 0015 | 


MAIN. MACY11 3001046) O6-DEC-77 18:18 
DZPLFA. P11 23-NOV-77 13: 47 TABLE OF CONTENTS 
2821 GLOBAL EQUATES SECTION 
2889 GLOBAL DATA SECTION 
3058 GLOBAL TEXT SECTION 
3098 GLOBAL ERROR REPORT SECTION 
3205 INITIALIZATION SECTION 


GLOBAL SUBROUTINES SECTION 


SEQ ni 


90 


OUTERR 
DZRLFA 


MACY11 30(1046) 


.Pil 


002000 


002000 


002076 


O6-DEC-77 18:18 PAGE 83 


23-NOV-77 13: 47 


002000 


oc0000 
000000 


032134 


. ENABLE AMA 
. ENABLE ABS 


.NLIST ME, CND. MO 


. =2000 


Svc 
SVC INS=0 
SVCTAG=0 


POINTER NONE 


BGNMOD MDHEDR 
HEADER 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
. BYTE 
. BYTE 
. BYTE 


Z2RLF,A,O 


a 
CSREVISION 
—~— 


ooo0o0o0no 


LSDISPATCH 


0 
LSODVTYP 
0 

L SHW 

0 


LSDR 
Loree 


0 
0 


0 
LSLAST 


SEQ 0017 


OUTERR MACY11 30(1046) O6-DEC-77 18:18 PAGE 83-1 


> EVENT FLAG DEFINITIONS 
: EF 32: EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
EF 16: EFO1 AVAILABLE FOR PROGRAM USE 


006940 EF. START== 32. » START COMMAND WAS ISSUED 
000037 EF. RESTART== 31. > PESTART COMMAND WAS ISSUED 
0000 36 EF. CONT'NUE== 30 . CONTINUE COMMAND WAS ISSUED 


OZRLFA. Pil 23-NOV-77 13:47 SEQ 0018 
2825 002100 ENDMOD 
2826 002100 DEVREG 

(§) 002100 d00000 .WORD O 
(2) 002102 000001 . BLKW 
2827 
2828 002104 DEVTYP <RLOQ1> 
(3) 002104 046122 030460 000 -ASCIZ @ARLOIA 
(2) 002112 . EVEN 
282 
2830 
2831 .SBTTL GLOBSi EQUATES SECTION 
2833 ; DEFINITIONS 
28i4 
2835 
tes 002112 BGNMOD GLBEQAT 
eess OUZIIZ EQUALS 
(1) ; 
(1) ; BIT DIFINITIONS 
(1) ; 
(1) 100900 B1T1S5== 100000 
(1) 040000 BiTi4== 40000 
(1) 020000 BIT13== 20000 
(1) 010000 BiT12== 10000 
(1) 004000 BiTi1i== 4000 
(1) 002000 B!1T10== 2000 
(1) 001000 BITO9== 1000 
(1) 000400 B'!TO8== 400 
(1) 006200 BiTO7== 200 
(7) 000100 B!TO6== 100 
(1) 000040 B1TOS== 4O 
(1) 000020 BiTO¥== 20 
(1) 000010 BiTO3== 10 
(1) 000004 BITO2== 4 
(1) oou002 BITOis=s 2 
(4) 000001 BITOQ== 1 
(qi FY 
ty? 001000 BIT9== BITO9S 
i 000400 BIT8== BITOSs 
| 000200 BIT7== BITO7 
| 000106 BiT6é== BITO6 
i 000040 BiTS== BITOS 
(1 000020 BlT4== BITO4 
(1 000010 BIiT3== BITOS 
(1 ooco04 BiT2== BITOZ 
(1 000002 BiTi== BITOI 
(1 000001 BITO== BITOO 
(1 ; 
(1 
(1 
(1 
(1 
(1 
(1 
(1 


eee eae ee ee ae as aes al 


Lao Fan] 





QUTERR 
DZRLFA 


ee ee ee ee ee 
ee ee ee a a a ee 


Fe en ee ee 


ee ee 
— et ot oe 
wee ew 


id 
oo 
Ww 
wo 


2840 


MACY11 30(1046) 06 


Pil 


23-NOV-77 13:4 


000035 
000034 


009020 
000017 
000016 
000015 
000014 
000013 
000012 
000011 
000010 
o00c007 
000006 
000005 
000004 
o0c003 
000002 
000001 


000340 
000300 
000240 
000200 
000140 
000100 
006040 
000000 


000000 
000002 
000004 
oou006 


000000 
000002 
000004 
000006 


000001 
000100 
100000 
040000 
020000 
010000 
004000 
004000 
010000 
002000 
000200 
000040 


-DEC-77 
? 


18:18 PAGE 83-2 
GLOBAL EQUATES SECTION 


mmmmm 

a Do Bt Bond a 

ooo0o- 

CNDWO—NYLuW 
Or Pwterse 


mmm 
-a7m"h 
ooo 
wew 


—pmoWw &UW® NOW ee 


29. 
28. 


; A NEW PASS HAS BEEN STARTED 
+; A POWER-FAIL/POWER-UP OCCURRED 


> PRIORITY LEVEL DEFINITIONS 


CONTROL AND STATUS OFFSET 
;BUSADDRESS OFFSET 

>DISK ADDRESS OFFSET 
;MULTI PURPOSE OFFSET 


; CONSTANT OFFSETS FOR INDIVDUAL DRIVE BUFFERS 


PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3== 140 
PR!IO2== 100 
PRIOI== 40 
PRIOQO== 0 
cS=0 

BA=2 

DA=4 

MP=6 

CSR=0 

VEC=2 

OSB=4 

PAT=6 
ORDY=BITO 
INTEN=B1T6 
ERR=BIT15 
DERR=BiT14 
NXM=B1T13 
OLT=BIT12 
OCRC=BIT11 
HCRC=BIT11 
HNF =B1T12 
OP 1=B1T10 
CROY=BIT7 
BA17=BITS 


> CONTROLLER ADDRESS 
VECTOR OF CONTROLLER 
-ORIVE SELECT 

;PATTERN UNIQUE TO DOPRIVE 


DRIVE READY 

; INTERRUPT ENABLE 
COMPOSITE ERROR 

*DRIVE ERROR 

;NON-EXISTANT MEMORY ERROF 
>DATA LATE 

DATA CRC ERROR 

HEADER CRC ERROR 

HEADER NOT FOUND ERROR 
OPERATION INCOMPLETE ERPOP 
CONTROLLER READY 

EXTENDED BUS ADDRESS BIT 17 


a ee Hy 


SEQ 0019 





oo 


OUTERR 


DZRLFA. 


MACY 11 


Pil 


002112 


30(104%6) O6-DEC-77 
23-NOV-77 13: 47 


000020 
000002 
000004 
000006 
000010 
000012 
000014 
000013 
0000023 
000001 
000004 
000020 
00¢100 


000000 
000002 
000004 
oco0006 
C00910 


900000 


18:18 PAGE 83-3 


=x 
So 
ee 


GLOBAL EQUATES SECTION SEQ 0020 
BA16=B1T4 ; EXTENDED BUS ADDRESS BIT 16 
CRSET=BITi > CONTROLLER RESET FUNCTION CODE 
GSTAT=B1T2 ;GET ORIVE STATUS FUNCTION CODE 
SEEK=B1T1'BIT2 ; SEEK FUNCTION CODE 
ROHDR=81T3 ;READ HEADER FUNCTION CODE 
WRITE=BIT3'BITI ;WRITE FUNCTION CODE 
READ=BIT3'BIT2Z ;READ FUNCTION CODE 
ORST=BIT3'S81T1'BITO ; DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD 
GSBIT=B1T1'BITO ;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD 
MK=B1TO ; MARKER BIT FOR DRIVE COMMAND WORD(SEEK,.GET STATUS) 
SIGN=B1T2 ; DIRECTION FOR SEEK(O=AWAY FROM SPINDLE) 
SKHS=B1T4 ;HEAD SELECT FOR SEEK 
HEAD=B1T6 ;HEAD SELECT FOR READ. WRITE.GET STATUS | 
> OFFSET FOR HARDWARE P-TABLE 
CSR=0 
VECT=2 
Pk IOR=4 
DRBT=6 
RLCNT=10 
ENOMCD 


.SBTTL GLOBAL CATA SECTION 


BGNMCD GLBDAT 


HDRFND: .WORD O 7 T=HEADEP IN BAC SECTOR LIST 
QUT10: .BYTE 9 
CUT 20: BYTE OQ 
OUT30: .BYTE OQ 
OUTUO: .BYTE OQ 
ouTsO: .BYTE 0 
OUT11: .BYTE QO 
OuUTzi: .OYTE 6 
QUT31: .BYTE 90 
OUT41: .BYTE 9Q 
OUTS1: .BYTE 0 
0au10: .BYTE Q 
0gu20: .BYTE 0 
OQU30: .BYTE OQ 
OQu4o: .BYTE 0 
ogusO: .BYTE QO 
0QU11: .BYTE OQ 
OQU21: .BYTE Q 
OQU31: .BYTE @ 
OQU41: .BYTE Q 
0QU51: .BYTE OQ 
mMiD10: .BYTE OQ 
mi0Z20: .BYTE O 
miD30: .BYTE OQ 


QUTERR 
DZRLFA 


MACY11 30(1046) 
23-NOV-77 13:47 


.Pil 


0021423 
002144 
002145 
002146 
002147 
002150 
002151 
002152 
002153 
002154 
002155 
002156 
002157 
002160 
002161 
002162 
002163 
002164 
002165 
002166 
002167 
002170 
002171 
002172 
002173 
002174 
002175 


002176 


002236 


002616 
002620 
002622 
002624 
002626 
002630 
002632 
002634 
002636 
002640 


_ 002642 
002644 


000020 


00170 


002116 
002130 


(002142 


002154 
002166 
002123 
002135 
002147 
002161 
002173 


152525 
133333 


18:18 PAGE 83-4 


GLOBAL DATA SECTION 


MIO4O: .BYTE OQ 
MiDSO: .BYTE O 
MIDi1: .BYTE QO 
M1021: .BYTE OQ 
MID31: .BYTE OQ 
MID41: .BYTE 0 
MIDS1: .BYTE O 
TQui0: .BYTE 0 
Tauz0: .BYTE 0 
TQU30: .BYTE 0 
TQU40: .BYTE 0 
TQusO: .BYTE 0 
TQUi11: .BYTE O 
TQUZ1: .BYTE 0 
TQU31: .BYTE OQ 
TQU41: .BYTE 0 
TQU51: .BYTE 0 
INN10: .BYTE 0 
INN20: .BYTE 0 
INN3O: .BYTE 0 
INNYO: . BYTE @Q 
INNSO: .BYTE OQ 
INN11: .BYTE QO 
INN21: .BYTE 0 
INN31: .BYTE 0 
INNY]: . BYTE  Q 
'NN51: . BYTE 0 
_ EVEN 


>SECTOR LIST FOR LAST DRIVE WRITTEN 
>MAP OF 16 SECTOR DRIVE BITS 


SECLST: .BLKW 16. 


*BUFFER TABLE FOR 24 X 5 MATRIX USED FOR ADJACENT CYLINOEP TESTING. 


SECBUF: .BLKW 5%*24 


LIST OF TRACKS USEC TO QVERWRITE TEST 
>FIRST FIVE ARE BYTE ADDRESSES OF TOP ZUPFACE 
;LAST FIVE ARE BYTE ADDRESSES OF BOTTOM SURFACE 


OVWTRK: OUT30 
0QU30 
MID30 
TQU30 
INN3O 
OUT31 
0QU31 
MIO31 
TQU31 
INN31 


PATLST: .WORD 152525 
-WORD = 133333 


SEQ 0021 


oO 


———_ - 


OUTERR MACY11 30(1046) O6-DEC-77 18:18 PAGE 83-5 


DZRLFA. P11 23-NOV-77 13:47 GLOBAL DATA SECTION SEQ 0022 
2976 002646 066666 .WORD 066666 
4 002650 155555 .WORD 155555 
2979 002652 000000 FOWR: .WORD O 
2980 002654 000000 FADJ: .WORD O 
2981 002656 000000 TEMP: .WORD O 
2982 002660 000000 LSTCLR: .WORD 0 LAST CONTROLLER 
2983 002662 000000 REASON: .WORD 0 DRIVE ERROR REASON 
2984 002664 000000 ERFLG: .WORD O 7 ERROR FLAG 
2985 002666 000000 STFLG: .WORD 9Q PROGRAM START UP FLAG 
2986 002670 000000 ADJLOC: .WORD O TRACK INDEX FOR ADJ. CYL TEST 
2987 002672 000000 ADJFLG: .WORD 0 ;FLAG FOR ADJ. STORE OR RETRIEVE 
2988 002674 o0C000 ADJDOIR: . WORD OQ ; ADJACENT SEEK DIRECTION 
2989 002676 000000 DRSTAT: .WORD OQ 
2990 002700 000000 HSFLG: .WORD O 
2991 002702 000000 OSECT: .WORD O 
2992 002704 000000 HEADO!: .WORD 0 * SURFACE FLAG 
2993 002706 000000 DIRC: . WORD OQ DIRECTION OF SEEK 
2994 002710 000000 DESCYL: .WORD 0 PACK SURFACE 
2995 002712 000000 REVSK: .WORD 0 REVERSE SEEK 
2996 002714 co0000 FORSK: .WORD 0 FORWARD SEEK 
2997 002716 000000 UUT: .WORD QO UNIT UNDER TEST 
2998 002720 9000000 SECT: . WORD O > SECTOR 
2999 002722 000000 LSTORV: .WORD 0 LAST DRIVE 
3000 002724 000000 GDATA: .WORD 0 -GOOD DATA 
3001 002726 9000000 BDATA: .WORD 0 ‘BAD DATA 
3002 002730 000000 WCOUNT: .WORD 0 ;WORD COUNT 
3003 002732 000000 SECWRD: .WORD OQ SECTOR WORD 
3004 002734 9000000 OFFSET: .WORD OQ > INCREMENT 
3005 002736 000000 LSTTRK: .WORD C >LAST TRACK OF SEARCH 
3006 002740 000000 FRTTRK: .WORD OQ ;FIRST TRACK OF SEARCH 
3007 002742 000000 PRSTRK: .WORD 0 ;PRESENT TRACK 
3008 002744 000000 SURFACE: .WORD 0 ; SURFACE 
3009 002746 000006 TRKFND: .WORD 9 + TRACK FOUND 
3010 002750 .000000 TRKCNT: .WORD 0 > TRACK COUNT 
3011 002752 000000 E. CS: .WORD O ; IMAGE OF CSR 
3012 002754 000000 E. BA .WORD OQ ; IMAGE OF BUS ADDRESS 
3013 002756 000000 E. OA: .WORD O ; IMAGE OF DISK ADDRESS 
3014 002760 000000 E. MP: .WORD O > IMAGE OF MULTI-PURPOSE WORD 1 
3015 002762 000000 E.MPi: .WORD OQ ieee " . ae hae 
3016 002764 000000 E.MP2: .WORD OQ lin ~ > oe 
3017 002766 9000000 BCS: .WORD 0 ; COMMAND LOADED 
3018 002770 000090 BBA: .WORD QO BUS ADDRESS LOADED 
3019 002772 000000 BDA: .WORD OQ DISK ADDRESS LOADED 
3020 002774 000000 BMP: .WORD 0 ; WORD COUNT LOADED 
3021 002776 000000 SERNM1: .WORD OQ ; SERIAL NUMBER OF CATRIDGE 
3022 003000 000000 SERNM2: .WORD 0 ee “ - . 
3023 003002 9000000 ADJTRK: .WORD OQ ; INSIDEZOUTSIDE FLAG 
3024 003004 000000 ADJUUT: .WORD OQ *UUT FOR “ADJCYL™ 
3025 003006 000000 ADJLC2: . WORD O > TEMP LOC FOR “ADJCYL™ 
3026 003010 000000 ADJLC3: .WORD O i a " 24 . 
3027 903012 000000 ADJLC4: .WORD 0 Ben a 3 7 
3028 003914 000000 STSEC1: .WORD 0 >SECTORS TO WRITE “ADJCYL™ 
3029 0030i6 006000 STSEC: .WORD 0 : . ” . “ 
3030 003020 006000 BUF: .BLKW = 3072. >BUFFER FOR 24 SECTOR READS 


oo 


OUTERR 


DZRLFA. 


ee ee es 
ee et ee et ee et 


MACY11 3001046) 
23-NOV-77 


Pil 
017020 


017020 
017022 
017024 
017026 


017030 
017032 
017034 
017036 


017040 
017042 
017044 
017046 


017050 
017052 
017054 
017056 


017060 


017062 


017062 


017062 
017102 
017164 
017202 
017241 
017300 
017351 
017404 
017452 
017512 
017532 
617556 
017606 


000000 
000002 
000004 
oco006 


000000 
0009002 
ooco04 
000006 


000000 
000002 
000004 
000006 


000000 
000002 
000004 
000006 


000000 


047103 


044515 


O6-DEC-77 18:18 PAGE 83-6 
13: 47 GLOBAL DATA SECTION SEQ 0023 
DRBUF: DRIVE INFORMATION BUFFERS 
CSR + CONTROLLER ADDRESS 
VEC VECTOR 
OSB ; DRIVE SELECT BITS 
PAT ;PRTITERN UNIQUE TO DRIVE 
CSR + CONTROLLER ADDRESS 
VEC + VECTOR 
OSB ;DRIVE SELECT BITS 
PAT PATTERN UNIQUE TO DRIVE 
CSR * CONTROLLER ADDRESS 
VEC VECTOR 
DSB ;DRIVE SELECT BITS 
PAT ;PATTERN UNiQUE TO DRIVE 
CSR ; CONTROLLER ADDRESS 
VEC ; VECTOR 
OSB DRIVE SELECT BITS 
PAT :PATTERN UNIQUE TO DRIVE 
ENDBUF- .WORD 0Q END OF DRIVE BUFFERS 
ENDNOD 
. SBTTL GLOBAL TEXT SECTION 
BGNMOD GLBTXT 
;GLOBAL TEXT 
046124 020122 CNTTOT: .ASCIZ /CNTLR TIMED OUT/ 
047522 020122 INITWR: .ASCIZ ZERROR ON RECOVERING INITIAL WRITE By FIRST DRIVE / 
047522 020122 OCKER: .ASCIZ /ERROR ON READ/ 
044516 052515 FEW: ASCIZ /AINIMUM OF THO DRIVES REQUIRED/ 
054101 046511 MANY: .ASCIZ /MAXIMUM OF FOUR DRIVES ALLOWED/ 
052123 O40440 NONE: .ASC!Z /TEST ABORTED - CAN'T FINO ANY GOOD SPOTS.’ 
054522 047111 OVMES: .ASCIZ /TRYING TO OVERWRITE DRIVE / 
044531 O43516 RECMS: .ASCIZ /TRYING TO READ DATA WRITTEN BY DRIVE / 
023516 020124 ERRFND: .ASCIZ /CAN'T FIND FIVE ADJACENT TRACKS/ 
051105 051127 OVWER: ASCIZ /OVERWRITE ERROP/ 
042101 051040 RECER: .ASCIZ /READ RECOVERY ERROR/ 
047522 020122 FUNERR: .ASCIZ /ERROR IN SEEK OPERATION’ 
020123 042523 SKER: -ASC'Z /MIS SEEK ERROR/ 


oo 


OUTERR 


MACY11 30(1046) 


DZRLFA. Pil 


017625 
017635 
017645 
017672 
017717 


017746 


017746 
017746 


017746 
017746 
017752 
017756 
017762 
017766 
017772 
017774 
017776 


020002 
020002 
020002 


020004 
020004 
020004 
020006 
020012 
020016 
020022 
020026 
020030 
020032 
020036 
020042 
020042 
020042 


020044 
020044 
020044 
020046 
020052 
020056 
020062 
020066 


013746 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


104023 


005046 
156416 
016446 
012746 
012746 
010600 
104014 
062796 
004737 


104023 


005046 
156416 
016446 
012746 
012746 
010600 


O6-DEC-77 18 
23-NOV-77 13:47 


051117 
053105 
051122 
047522 
045104 


002744 
002736 
002740 
021260 
00GO004 


000112 


000005 
000000 
020761 
000003 


000010 
025134 


000005 
000000 
020761 
000003 


040527 
051105 
051117 
020122 
041501 


. = 
:18 PAGE - 
GLOBAL TEXT SECTION 
FWD: -ASCIZ /FORWARD/ 
REV: .ASCIZ /REVERSE/ 
WRITi: .ASCIZ ZERROR WRITING SECTOR/ 
READ1: .ASCIZ /ERROR READING SECTOR/ 
ADJTXT: .ASCIZ /ADJACENT CYLINDER TEST/ 
. EVEN 
ENDMOD 
.SBTTL GLOBAL ERROR REPORT SECTION 
BGNMOD GLBERR 
BGNMSG ERR1 
PRINTB #FRM10,FRTTRK,LSTTRK, SURFACE 
MoV SURFACE, -(SP) 
MoV LSTTRK, -(SP) 
MoV FRTTRK, -(SP) 
MoV #FRM10.-(SP) 
MOV #4, -(SP) 
MOV SP,RO 
EMT CSPNTB 
ADD #12, SP 
ENDMSG 
L10000: 
EMT CSMSG 
BGNMSG ERR2 
PRINTB #FRMY,CSR(R4), <B.0SB+1(R4) > 
CLR - (SP) 
BISB DSB+1(R4), (SP) 
MoV CSRCRY), -CSP) 
MoV RF RMY,-CSP) 
MoV #3,-(SP) 
MoV SP. RG 
EMT CSPNTB 
ADD #10, SP 
JSR Pc, REGDMP >REGISTE® BUMP ROUTINE 
ENDMSG 
L10001: 
EMT C3MSG 
BGNMSG ERR3 
PRINTB #FRMY,CSRCRY), (B,. O0SB41°R4)> 
CLR - (SP) 
BISB DSB+1(R4), (SP) 
MoV CSR(R4Y), - CSP) 
mov #FRMY, - (SP) 
MoV SP,.RO 


om 


OUTERR MACY11 3001046) 


DZRLFA. P11 


(4) 
(4) 
3114 
3115 
(10) 
(9) 
(9) 
(8) 
(8) 
(7) 
(6) 
(3) 
(4 } 
(4) 
3116 
(9) 
(9) 
(8) 
(7) 


020070 
020072 
020076 
020102 
020102 
020106 
020110 
020114 
020116 
020122 
020126 
020132 
020134 
020136 
020142 
020142 
020144 
020150 
020154 
020160 
020164 
020166 
020170 


020174 
020174 
020174 


020176 


020176 
020176 
020200 
020204 
020210 
020214 
020220 
020222 
020224 
020230 
020234 
020234 
020240 
020242 
020246 
020250 
020254 
020260 
020264 
020266 
020270 
020274 
020274 
020300 
020304 
020310 


23-NOV-7 


104014 
062706 
004 737 


013746 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104014 
062706 


005046 
156316 
016346 
012746 
012746 
010600 
104914 
062706 


104023 


005046 
156416 
016446 
012746 
012746 
010600 
104014 
062706 
004737 


013746 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104014 
062706 


013746 
013746 
013746 
013746 


06-DEC-77 


7 13:47 


000010 
025134 


002720 
002710 


002711 
021022 
000004 


000012 


000005 
000000 
021611 
ococo3 


000010 


000005 
000000 
020761 
000003 


000010 
025134 
002720 
002710 
002711 
621022 
000004 
000012 
002722 
002660 


002722 
002662 


18:18 PAGE 83-8 
GLOBAL ERROR REPORT SECTION 


L 10002: 


BGNMSG 


ENDNSG 
EMT 
ERRY 
PRINTB 


M 2 


CSPNTB 

#10. SP 

PC, REGOMP ;REGISTER DUMP ROUTINE 
SECTS?) (B, DESCYL>, SECT 


(SP) 
DESCYL, (SP ) 


DESCYL#1, (SP) 
#FRMS, - (SP) 
#4, -(SP) 


- SP 
BFRNIG, CSR(R3), <B, DSB+1(R3)> 


DSB+1(R3), (SP) 
CSR(R3),-CSP) 
#FRM16, -(SP) 
#3,-(SP) 
CSPNTB 

#10. SP 


C$MSG 


#FRMY, CSRCRY), <B. DSB+10(R4)> 
- (SP) 

DSB+1(R4), (SP) 

CSRC(RY), -(SP) 

RFRMY, - CSP) 


PC, REGOMP >PEGISTER DUMP ROUTINE 
#FRMS, <B, DESCYL+1>, <B. DESCYL>, SECT 
) 


DESCYL, (SP? 

- (SP) 
DESCYL+1. (SP) 
ar RMS, -(SP) 


P 
SF RMO, se LSTORV.LSTCLP-LSTORY 
LSTORV, -(SP) 
LSTCLR. -(SP) 
LSTORV, -(SP) 
REASON, - (SP) 


SEQ sack 


oo 


OUTERR 
OZRLFA 


(7) 
(6) 
(3) 
(4) 
(4) 
3126 
(8) 
(7) 
(6) 
(3) 
(4) 
(4%) 
312? 
3128 
(3) 
(3) 
129 
3138 
3131 
(9) 
(9) 
(§) 
(7) 
(6) 
(3) 
(4) 
(4) 
3132 
3133 
(3) 
(3) 
3134 
3135 
3136 
(9) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
3137 
3138 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
3139 
(3) 
(3) 
3140 
3141 


MACY11 30(1046) 


Pil 


020314 
020320 
020324 
020326 
020330 
020334 
020334 
020340 
020344 
020350 
0202352 
020354 


020360 
0203660 
029360 


020262 
020362 
020362 
020364 
020370 
020374 
020400 
020404 
020406 
020410 
020414 
020420 
020420 
020420 


020422 
020422 
020422 
020424 
020430 


020506 


06-DEC-77 


23-NOV-77 13:47 


012746 
012746 
010600 
104014 
062706 


013746 
012746 
012746 
010600 
104014 
062706 


104623 


005046 
156416 
016446 
012746 
012746 
010600 
104014 
062706 
0047237 


104623 


005046 
156416 
016446 
012746 
012746 
010600 
104014 
062706 
004737 


013746 
010146 
012746 
012746 
010600 
104014 
062706 


104023 


021071 
000005 


000014 


002706 
021112 
000002 


900006 


000005 
060000 
020761 
000003 


900010 
025134 


000005 
900000 
020761 
009003 


000010 
025134 
002760 
021676 
000003 


9000:0 


18:18 PAGE 


N 2 


83-9 
GLOBAL ERROR REPORT SECTION 


L10003: 


BGNMS& 


L19004: 


BGNMSG 


L10005: 


EMT 


#FRMG, - (SP) 
#5, -(SP) 
SP, RO 
CSPNTB 

#14, SP 
#FRN7,DIRC 
DIRC., -(SP) 
#FRM7, -(SP) 
#2, - (SP) 


C$MSG 


#FRMY, CSRCRY), <B, DSB+1(R4)> 


SP) 


=( 
DSB+1(R4), (SP) 
CSRCRY), - CSP) 


RFRMY, - (SP) 
#3.-(SP) 
SP, PO 
CSPNTB 


#10, SP 
PC, REGDNP 


CSMSG 


#FRMY.CSRORY), <B. S841 0R4)> 


- (SP) 


DSB+1i(R4), (SP) 
CSR(R4),-CSP) 


#FRMY, -(SP) 
#3,-(SP) 
SP. RO 
CSPNTB 

#10. SP 

PC. REGDMP 


#FRMI7.R1.E. MP 


E. MP. -<(SP) 
R1i.- (SP) 
#rRM17,-CSP) 
#3, -CSP) 
SP.RO 
CSPNTB 

#10, SP 


C$MSG 


SEQ 0026 


oo 


Yn A. 


OUTERR 


DZRLFA. 


3142 


MACY11 30(1046) 


Pil 


020510 
020605 
020702 
020761 
021022 
021071 
021112 
021152 
021216 
021260 
021324 
021361 
021440 
021523 
021552 
021611 
021676 
021732 
021775 


022022 
022022 


022022 
022022 


022024 
022026 
022030 
022032 
022034 


022036 
022036 


022036 


022036 


022036 
022036 
022040 


23-NOV-77 13:4 


047045 
O45 


000005 


174400 
000330 
000240 
000000 
000091 


006001 
031046 


O4O44S 
022516 
O4O44S 
041501 
042510 
022524 
042523 
047527 
022463 
042502 
O4044S 
041101 
O4¥O44S 
022516 
O4¥044S 
040501 
054105 
O4¥O44S 
022516 


06-DEC-77 
? 


047125 
050101 
051127 
047117 
042101 
030517 
045505 
042122 
020101 
053524 
053520 
043105 
043101 
020101 
040503 
045104 
023520 
047125 
20101 


18:18 PAGE 83-10 
GLOBAL ERROR REPORT SECTION 


B 3 
SEQ 0027 C 


;FORMAT STATMENTS 


FRM1: ASC IZ 
FRM2: ASC IZ 
FRM3: ASC IZ 
FRM: ASC1Z 
FRMS: ASC IZ 
FRM6: ASCIZ 
FRM?: ASC IZ 
FRMB: ASC IZ 
FRMY: ASCIZ 
FRM10: ASC1Z 
FRM11: ASC1Z 
FRM12: ASC1Z 
FRM13: ASCIZ 
FRM14: ASC12Z 
FRM1S: ASC1Z 
FRM16: ASC1Z 
FRM1?7: ASCIZ 
FRM18: .ASCIZ 
ENDPAS: . ASCIZ 
. EVEN 

ENDMOD 


BGNMOD HPTCODE 


BGNHW 
ORD 


. WORD 
. WORD 
. WORD 
_ WORD 
. WORD 


ENDHW 
L 10006: 


ENONOD 


BGNMOD = DSPCODE 
DISPATCH 

. WORD 

. WORD 


7“%NZAUNLOAD DRIVE %01%AR ON CONTROLLER %06%A AND REMOVE PACK%N/ 
7“NZAPLACE PACK IN DRIVE %01%A ON CONTROLLER %06%A AND LOAD%N/ 
'ZNZAWRONG PACK # IS %05%05%A # S/B %05%05%NZN! 

7ZACONTROLLER: %06%A ORIVE: %01%N/ 

7ZAHEAD: %01%A CYL: %23%A SECTOR: %Z2%N/ 

7%T%01%A ON %O6%N/ 

7ZASEEK DIRECTION: %T%NZADATA: %N/ 

'%AWORD: %Z23%A S/B: %06%A WAS: %06%N! 

7%03%A WORDS BAD OUT OF 128 READ%N/ 

7“ABETWEEN %23%A - %23%A HEAD: %01%N/ 

7“NZAPWR FAIL NOT SUPPORTED%N/ 

7“ZABEFORE CS: %06%A BA: %06%A DA: %06%A MP: %06/ 

7ANZARFTER CS: %06%A BA: %06%A DA: %06%A MP: %06%N/ 

7%NZA DRIVE STATUS: %06/ 

7*2NZACAN'T FIND BAD SECTOR FILE/ 

7ZARADJACENT WRITTEN BY CONTROLLER: %06%A DRIVE: %01%N/ 
7%REXP'D: %06%A REC'D: %06%N/ 

7“%NZAUNLOAD ALL ORIVES TO BE USED%N/ 

/7%NZA END OF PASS“%N%N/ 


L10006-LSHW. 2 


174400 
330 
240 

0 

1 


— 


OUTERR 


DZRLFA. 


3200 


MACY 11 


Pil 


022042 


022042 
022042 


022042 
022042 
022046 


022050 
022056 


022060 
022060 
022062 
022064 
022066 


022072 
022100 


022102 
022102 
022104 
022106 
022110 


022114 
022122 
022124 
022130 
022134 
022140 
022142 
022142 
022144 
022146 
022152 
022156 
022160 
022164 
022170 
022172 
022174 
022200 
022204 
022206 
022214 
022220 
022224 
022230 


30( 1046) 
23-NOV-77 


012700 
104041 


023727 
002005 


104421 
000023 
017202 
000137 


023727 
003405 


104421 
000024 
017241 
000137 


013737 
005001 
012704 
012702 
005737 
001422 


010100 
104042 
012064 
012064 
005720 
011064 
011264 
005722 
005201 
005337 
062704 
000753 
013737 
012704 
005037 
005037 


06- ~~ 77 


13:4 


000340 


002014 


023270 
002014 


023270 
002014 


017020 
002642 
002716 


000000 
006002 


000004 
000006 


002716 
000010 


002014 
017020 
002654 
062652 


000002 


N00004 


002716 


002716 


18:18 PAGE 83-1 


CS 


GLOBAL ERROR "REPORT SECTION 


ENDMOD 


.SBTTL INITIALIZATION SECTION 


BGNMOD 


SETPRI 
MOV 
ENT 


CMP 
BGE 


ERRSF 
TRAP 


90S: CMP 


END: MOV 


READEF 


INI TCODE 
BGNINIT 


#340 
#340, R0 
CSSPRI 


LSUNIT, #2 
90% 


19.,FEW 
TSERCODE 
19 


FEW 
CMPENA 


LOUNIT, #4 
919 


20. . MANY 
TSERCODE 
20 


MANY 
CMPENA 


LSUNIT. UUT 
R1 
#ORBUF. RY 
#PATLST. PZ 


(RO) +, CSRCRY?! 
(RO) +, VEC CRY) 
(RO)+ 

(RO), OSBCRY) 
(R2),PATC(RY) 
(R2Z)+ 
R1 

UUT 

#PAT+2, R4 

g 


1 
LSUNiT, UUT 
#ORBUF, RY 
FADJ 


FOWR 
SEF. PUR 


;MORE THAN TWO 
+ YES, OKAY 


*CLEAN CODE WHEN < 2 DRIVES 


>MORE THAN FOUR 
*NOQ, OKAY 


*CLEAN CODE WHEN > & DRIVES 


>GET NUMEER OF UNITS 


> INIT P- 
>SET UP 


TABLE 
DRIVE BUFFER 


*GET LIST OF PATTERNS 


; ANY 
>NO.GO T 


GET A P- 


>GET CSR 
;GET VEC 


P-TABLES LEFT? 
0 END 
TABLE 


TOR 


>SKIP PAST BR 


GET OR} 


NEXT P 
>NEXT OR 


>GET BEGINNING OF BUFFER 
CLEAR ADJ. 


VE 


TABLE 
IWE 


TEST FLAG 


>CLEAR OVERWPITE FLAG 


SEQ 0028 


9° 


OUTERR 


DZRLFA. 


MACY11 30(1046) 


Pil 


022230 
022234 
022236 
022236 
022240 
022240 
022244 
022250 
022252 
022254 


022260 
022264 
022272 
022300 
022300 
022304 
022310 
022312 
022314 
022320 
022324 
022330 
022334 
022340 
022344 
022350 
022352 


022354 
022360 
022362 
022364 


022366 
022372 


022374 
022374 


022402 


012700 
104050 


103010 


012746 
012746 
010600 
104017 
062706 


005237 
012737 
012737 


012746 
012746 
010600 
104017 
062706 
004537 
004537 
004537 
012701 
012700 
012721 
005300 
001374 


004537 
000001 
000000 

000 


005737 
001005 


104463 
006012 
017452 
017746 


06-DEC-77 
23-NOV-77 13:47 


000034 


021324 
000001 


000004 


002666 
177777 


021732 
000001 


000004 
030450 
030020 
027364 
002114 
000031 
177777 


027552 


020 
002746 


NN2776 
03000 


18:18 PAGE 83-12 


INITIALIZATION SECTION 
MOV #EF. PHR,RO 
EMT CSREFG 
BNCOMPLETE SETUP 
BCC SETUP 

#FRMI1 


MOV #FRM11,-(SP) 


MOV SP,RO 
EMT CSPNTF 
ADD #4, SP 


> INITIALIZE ROUTINE 


ee 4 


SEQ 0029 


;WE ATTEMPT TO LOCATE 5 PERFECT ADJACENT TRACKS AT 5 SPOTS 


ACROSS THE PACK 


;THE 5 SPOTS ARE: (EACH SURFACE) 


;OUTER - TRACK O - 16 

> INNER - TRACK 238 - 254 
*MIDDLE - TRACK 120 - 136 
ONE QUARTER - TRACK 56 - 72 


; THREE QUARTER - TRACK 184 - 200 


SIF WE FIND ANY BAD SPOTS. WE WILL REPORT SO........ 


SETUP: INC STFLG 
MoV #-1, SERNM1 
MOV #-1, SERNM2 
PRINTF #FRMIES 
MoV RFRM1I8, -(SP) 
MOV #1,-(SP) 
MOV SP. RO 
EMT CSPNTF 
ADD #4, SP 
JSR R5, LOAD 
JSR RS, SERNUM 
JSR RS, MERGE 
MoV #OUT1O, R1 
Mov #25. .R0 

1$: MoV #177777, (Rite 
DEC RO 
BNE 1$ 
JSR RS. FNOTRE 
1 
0 
BYTE 0-16 
TST TRKFND 
BNE 2$ 
ERRHRD 10. -ERRFND EPPI 
TRAP TSERCODE 

WORD 10 

. WORD ERRFND 
WORD = ERR I 


> INDICATE A START COMMAND 


>TELL OPERATOR TO LOAD 
>GET SERIAL NUMBER 

;MERGE BAD SECTOR FILES 
> INITIALIZE ALL TRACKS 


> TRY TO FINO FIVE TRACKS 
> INWARD SEARCH 

> TOP SURFACE 

: TRACK RANGE 


“WAS SEARCH SUCCESSFUL 2??? 
;¥ES 


>NO TRACKS 


Lon Tan) 


OUTERR 


DZRLFA 


MACY11 30(1046) 


Pil 
022404 


022406 
022412 


022416 
022422 
022424 
022426 


022430 
022434 


022436 
022436 
022440 
022442 
O22444 
022446 


022450 
022454 
022460 
022464 
022466 
022470 


022472 
022476 


022500 
022500 
022502 
022504 
022506 
022510 


022512 
022516 


022522 
022526 
022530 
022532 


022534 
022540 


022542 
022542 
022544 
022546 
022550 
022552 


022554 


06-DEC-77 


23-NOV-77 13:47 


000404 


012700 
004537 


004537 
000001 
o0c0001 

000 


005737 
001005 


104463 
000012 
017452 
017746 
000404 


012700 
004537 
004537 
177777 
000000 

376 


005737 
001005 


104463 
000012 
017452 
017746 
000404 


012700 
004537 


004537 
177777 
000091 

376 


005737 
001005 


104463 
000012 
017452 
017746 
006404 


012700 


002114 
027764 


027552 


020 
002746 


002121 
027764 
027552 


356 


O00274e 


002164 
027764 


002171 


18:18 PAGE 83-13 
INITIALIZATION SECTION 


BR 3$ 
23: MOV #OUT10. RO 
JSR RS, FIXCYL 
3$: — RS. FNDTRK 
1 
BYTE 0, 16. 
TST TRKFND 
BNE 4$ 
ERRHRD 10. ERRFND-ERR1 
TRAP TSERCODE 
.WORD 10 
.WORD  ERRFND 
.WORD  ERR1 
BR 5$ 
4: MOV #OUT11-R0 
JSR RS, FIXCYL 
5S: JSR RS, FNDOTRK 


0 
.BYTE 254. , 238. 


TST TRKFND 
BNE 6$ 


ERRHRD 10.-ERRFNOD.ERRI 


TRAP TSERCODE 


-WORD 10 
.WORD ERRFND 
.WORD  ERR1 
BR 7$ 
o$: MOV # 1NN10.R0 
JSR RS, FIXCYL 
7$: JSR RS, FNOTRK 
a. 


1 
.BYTE 254.,238. 


TST TRKFND 
BNE 83 


ERRHRD 10. ERRFND,ERRI 


TRAP TSERCODE 


.WORD 10 
.WORD  ERRFND 
.WORD = ERR1 
BR 9$ 
$$: MOV #INN11.R0 


STORE AWAY TRACKS FOUND 


TRY TO FIND FIVE TRACKS 
; INWARD SEARCH 

BOTTOM SURFACE 

; TRACK RANGE 


; WAS SEARCH SUCCESSFUL???? 
; YES 


»NO TRACKS 


STORE TRACKS AWAY 


>FIND NEXT 5 TRACK 
OUTWARD SEARCH . 
; TOP SURFACE 

> TRACK RANGE 


;WAS SEARCH SUCCESSFUL? 
7 ¥ES 


>NO TRACKS 


> SKIP 

> STORE AWAY TRACKS FOUND 
-NEXT SET 

;QUTWARD SEARCH 

;BOTTOM SURFACE 

; TRACK RANGE 


> SEARCH SUCCESSFUL? 
> YES 


>NOQ TRACKS 


STORE AWAY TRACKS FOUND 


SEQ 0030 


- 


Oo 


OUTERR 


DZRLFA. 


MACY11 30(1046) 


Pil 
022560 


022564 
022570 
022572 
022574 


022576 
022602 


022604 
022610 
022612 
022614 


022616 
022622 


022624 
022624 
022626 
022630 
022632 
022634 


022636 
022642 


022646 
022652 
022654 
022656 


022660 
022664 


022666 
022672 
022674 
022676 


022700 
022704 


022706 
022706 
022710 
022712 
022714 
022716 


022720 
022724 


022730 
022734 


06-DEC-77 


23-NOV-77 13:47 


004537 


004537 
000001 
000000 

176 


005737 
001015 


004537 
177777 
oocoo0 

202 


005737 
001005 


104463 
000012 
017452 
017746 
000404 


012700 
004537 


004537 
000001 
000001 

176 


005737 
001015 


004537 
177777 
000001 

202 


005737 
001095 


104463 
000012 
017452 
017746 
000404 


012700 
004537 


004537 
000001 


027764 
027552 


_ 210 
002746 


027552 


170 
002746 


002140 
027764 


N27552 


210 
002746 


027552 


002145 
027764 


027552 


18:18 PAGE 83-14 
INITIALIZATION SECTION 


9$: 


128: 


13%: 


JSR 


TRAP 


ERRHRD 
TRAP 

. WORD 
. WORD 
. WORD 
BR 


RS, FIXCYL 
RS, FNDTRK 


126.,136 


TRKFND 
10$ 


RS, FNDTRK 


130. .120. 


TRKFND 
10% 


10., ERRFND, ERP! 


TSERCODE 
10 
ERRFND 
ERR1 

11% 


#M1010,R0 
RS, FIXCYL 


RS. FNDTRK 


126. . 136 


TRKFND 
12$ 


R5, FNDTRE 


130. .120 


TRKFNO 
128 


SEQ | 


*NEXT SET 

+ INWARD SEARCH 
+ TOP SURFACE 

+ TRACK RANGE 


Att WE FIND A SET 


, 


+NEXT SET (OTHER SIDE) 
;QUTWARD SEARCH 

+ TOP SURFACE 

+ TRACK RANGE 


;D1ID WE FIND A SET 
,Yts 


>NO TRACKS 


> STORE AWAY 


>NEXT SET 

; INWARD SEARCH 
;BOTTOM SURFACE 
; RANGE 


> SUCCESS? 
avES 


;LOOK THE OTHER SIDE 
; QUTWARD 

-BOTTOM SURFACE 

> PANGE 


> SUCCESS? 
YES 


10. ERRFND.ERR1 NO TRACKS 
0 


TSERCODE 
10 
EPRFND 
ERR1 

13$ 


#Midi1,RO 
RS, FIXCYL 


RS. FNDTRK 


>STORE AWAY THE TRACKS FOUND 


>NEXT SET 
> INWARD 


oo 


G 3 eee ee ee, lS 
OUTERR MACY11 30(104%6) O6-DEC-77 18:18 PAGE 83-15 
DZRLFA.P11 = 23-NOV-77 13:47 INITIALIZATION SECTION SEQ 0032 


3377 022736 000000 0 ; TOP SURFACE 
3378 022740 076 110 “BYTE 62.,72. : RANGE 
3380 022742 005737 002746 TST TRKFND ; SUCCESS? 
3381 022746 001015 BNE 14 : YES 
3383 022750 004537 027552 ISR RS, FNDTRK ;LOOK OTHER SIDE 
3384 022754 177777 ~{ : OUTWARD 
2385 022756 on0000 0 STOP SURFACE 
3386 022760 102 070 “BYTE 66. . 56. : RANGE 
3388 022762 005737 002746 TST TRKFND ; SUCCESS? 
3389 022766 001005 BNE 145 > YES 
aod 
2391 022770 ERRHRD 10..ERRFND.ERR1 :NO TRACKS 
(2: 022770 104463 TRAP —« TSERCODE 
(6) 022772 000012 WORD 10 
(&) 022774 O17452 WORD  ERRFND 
(6) 022776 017746 WORD ERRI 
3392 923000 a00404 BR 158 
3394 023002 012700 002126 14s Mow #0QU10. RO STORE AWAY NEXT SET 
3395 023006 004527 027764 ISR RS, FIXCYL 
6 ‘ 
3397 023012 004537 O27562 165 JSR RS.ENDTRE ;LOOK FOR NEXT SET 
3398 023016 o00001 1 -TNWARD 
3399 023020 000001 ! : BOTTOM 
3400 023022 076 110 "BYTE 62.72. : RANGE 
3401 
3u02 023024 005737 o02746 TST TRKFND ; SUCCESS? 
3403 023030 001015 BNE 165 YES 
uo4 
3u0S 023032 004537 027552 ISR RS, FNDTRE -LOOK FOR ANOTHER SET 
3406 022036 177777 af - OUTWARD 
3407 023040 000001 ! “BOTTOM 
3408 023042 102 070 BYTE 66.56 : ANGE 
3409 
3410 023044 005737 002746 TST TRKFND > SUCCESS? 
2411 023050 001005 BNE 168 YES 
2412 
3413 023052 ERRHRD 10. ERRFND.ERP1 ©NO TRACKS 
(3) 023052 104463 TRAP —« TSERCODE 
(5) 023054 o00012 “WORD 10 
(5) 023056 017452 “WORD — ERRFND 
(5) 023060 017746 WORD ERP 
3414 023062 O00404 BR 175 
3415 
3uie 023064 012700 002132 16S Maw #OQUI1-RO STORE AWAY TRACKS 
3417 023070 004537 927764 JSP PS. FIXCYL 
3418 
3419 023074 004537 027552 17S ISR RS. FNOTRE NEXT SET GF TRACKS 
3420 023100 000001 1 “INWARD 
3421 023102 oo00000 Q TOP SURFACE 
3422 023104 276 310 BYTE 190..200 RANGE 


3424 023106 005737 OO0274e TST TRKFND > SUCCESS? 


oo 


OUTERR MACY11 30(1046) O6-DEC-77 18:18 PAGE 83-16 | 
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3025 023112 001015 BNE 18S ; YES 
2427 023114 004537 027552 JSR RS, FNDTRK :LOOK OTHER SIDE 
3428 023120 177777 “4 ; OUTWARD SEPRCH 
3429 023122 o00000 0 ; TOP 
3430 023124 302 270 “BYTE 194. ,184. : RANGE 
YS 
3432 023126 005737 002746 TST TRKF NOD ; SUCCESS 
2433 023132 001005 BNE 18$ > YES | 
3434 
3435 023134 ERRHRD 10. ERRFND.ERR1 :NO TRACKS 
(2) 023134 104463 TRAP TSERCODE 
(5) 023136 000012 “WORD 10 
(5) 023140 017452 “WORD  ERRFND 
(S) 022142 017746 “WORD = ERRI 
43 023144 000404 BR 195 
243? 
3438 023146 012700 002152 186. Mow #TQUIO. RO STORE TRACKS AWAY 
3439 023152 004537 027764 JSR PS, FIXCYL o 
44 | 
3441 023156 C0453? 027552 195. JSR RS. FNDTRE NEXT SET 
3442 023162 900001 1 > INWARD | 
3u43 O23164 000001 1 “BOTTOM SURFACE | 
wu 023166 276 310 “BYTE 199.200 : RANGE | 
uy 
3u4e 023170 005737 00274. TST TRKFND - SUCCESS? | 
B47 023174 001015 BNE 208 YES | 
44 
3449 023176 004537 027552 jSR RS. FNDTRK OTHER SET 
3450 023202 177777 23 ; OUTWARD 
3451 023204 000001 ! “BOTTOM SURFACE 
3452 023206 302 270 BYTE 194.,18% : PANGE 
y 
3454 022210 005737 002746 1ST TRKFND SUCCESS 
3085 023214 001005 BNE 208 YES 
456 
3457? 023216 ERRHRD 10. ERRFNC. EPP! °NO TRACKS | 
(3) 023216 104463 TRAP  - TSERCODE 
(6) 023220 o00012 “WORD 10 
(6) 023222 017452 “WORD  ERRFND 
(5) 023224 017746 “WORD ERR 
058 023226 o00404 BR 218 
4 
3460 023230 012700 002157 203: = MoV #TQUI1.RO STORE SET AWAY 
3461 023234 004537 027764 ISP RE, FIXCYL 
3462 
3463 023240 012700 602114 218: MOV #OUTIO. RO “DID WE FIND ANY AT ALL 
3464 023244 012701 000062 MoV #50. .R1 ; 
3465 023250 122720 000277 228. CMPB «#377, (ROD+ 
3466 023254 001016 BNE EXIT 
3467 023256 005301 DEC RI 
3468 023260 001373 BNE 22% 
3469 023262 ERRSF 3... NONE 
(3) 023262 104421 TRAP TSERCODE 


(5) 023264 000003 -WORD 3 
(5) 023266 017300 _ WORD = NONE 


































————________—_--—__-—-— 
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3470 023270 005001 CMPENA: CLR RI | 
3471 023272 013700 002014 nov LSUNIT, RO 
2472 023276 248.  DODU RI DO DROP UNIT 
(3) 023276 010100 nov R1,RO | 
(3) 023300 104053 ENT C$D0DU | 
3473 023302 005201 INC Ri 
2474 023304 005300 DEC RO | 
3475 023206 001373 BNE 24S | 
2476 023310 DOCLN . 
(3) 023310 104044 ENT CSDCLN 
347 
3478 
2479 023312 EXIT: 
2450 
3HS1 023212 ENDINIT 
(2) 023312 L10007 
(3) 023312 104011 EMT CSINIT 
3482 
3483 023314 ENDMOD 
3484 
3485 027714 BGNMOD CLNCODE 
3486 
3487 
3u88 023214 BGNCLN 
3489 
3490 
3491 
3u92 023314 o00lsC NOP 
3493 
3494 
3495 023316 ENDCLN 
(3) 023316 L10010 
(3) 023316 104012 ENT CSCLEAN 
3496 
3497 023320 ENDMOD 
3498 
3499 023320 BGNMOD DRPCODE 
2500 023320 BGNDU 
3601 023320 000240 NOP 
7502 023322 ENDDU 
(3) 023322 10011: 
(3) 023322 104056 ENT C$cu 
3602 023324 ENDMOD 
3504 SBTTL GLOBAL SUBROUTINES SECTION 
3505 023324 BGNMOD GLBSUB 
3506 
3507 ALL COMMON OR GLOBAL SUBROUTINES GO HERE 
3508 
3509 “ROUTINE TO PERFORM OVERWP ITE 
3510 CALL: JSR RS, OVWPER 
3611 SECTORS TO WRITE FORWARD 
3512 : SECTORS TO WRITE REVERSE 
3513 
3514 023324 O1G046 OUNPER. MOV RO. -(SP) SAVE PO. PL. PL. PD 
2515 023326 O10146 Mow Ri. (SP) 
023330 010246 Mow R2,- (SP) 





9o 


OUTERR 
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023332 
023334 
023336 
023342 


023346 
023352 
023354 
023360 


023362 
023366 
023372 
023374 
023400 
023404 
023410 
023414 
023420 
023424 
023430 
023432 
023440 
O23444 
023450 
023454 
023462 


023466 
023472 
023476 


023502 
022506 
023512 
023514 
023522 
023526 


023532 
023534 
023536 
023542 


023544 
023546 
023550 
023552 
023554 


06-DEC-77 


23-NOV-77 13:47 


010346 
005000 
012537 
012537 


012701 
011102 
121227 
001464 


005037 
020027 
002402 
105237 
004537 
105037 
151237 
004537 
013703 
004537 
000034 
012737 
004537 
004537 
105037 
052737 
004537 


105037 
151237 
004537 


013703 
004537 
000034 
012737 
004537 
004537 


005721 
005200 
020027 
001393 


012603 
012602 
012601 
012600 
000205 


002714 
002712 


002616 
177777 


002710 
000005 


002711 
024706 
002710 
002710 
024706 
002714 
023556 


017625 
025612 
026176 
002710 
000377 
024706 


002710 
002710 
024706 


002712 
023556 


017635 


025612 
026176 


000012 


002706 


002710 


002706 


18:18 PAGE 83-18 


J 3 


GLOBAL SUBROUTINES SECTION 


2$: 


35: 


R3, -(SP) 


RO 
(RS) +, FORSK 
(R5) +, REVSK 


ROVWTRK, R1 
(R1),R2 
(R2), #-1 
3$ 


DESCYL 

RO, #5 

2$ 

DESCYL+1 
R5, SKCYL 
DESCYL 
(R2), DESCYL 
RS, SKCYL 
FORSK, R3 
RS, WRSEC 
28. 

#FWD, DIRC 
RS, VEROW 
RS. VEROD 
DESCYL 
#377, DESCYL 
RS, SKCYL 


DESCYL 
(R2),DESCYL 
RS, SKCYL 


REVSK, R3 

RS, WRSEC 

28. 

#REV, DIRC 
RS, VEROW 

R5, VEROD 


(SP)+,R3 

(SP)+,R2 

(35P)+,R1 

(SP)+,RO 
5 


ROUTINE TO WRITE SECTORS 
;USED IN OVERWRITE TEST; ADJACENT CYLINDER TEST 


> CALL 


, WRD 
7R3 HAS BI TNAP OF SECTORS TO WRITE 
/R4 HAS DRIVE BUFFER POINTER 


JSR 


RS, WRSEC 


+RO HAS COUNT IF RO<S 
;USE TOP SURFACE. IF RO>S 
;USE BOTTOM SURFACE. IF RO>1 


; DONE. 
;GET START OF LIST OF TRACKS 
GET POINTER TO TRACK 


+NO, EXIT 
+ CLEAR ie FOR SEEK 


;BOTTOM SURFACE 
;SEEK TO CYLINDER 


;SEEK TO PROPER CYLINDER 
SECTORS TO WRITE 
GO WRITE SECTORS 


SET FORWARD DIRECTION 

; VERIFY OVERWRITE 

; VERIFY OTHER DRIVES DATA 
>SET UP FOR SEEK TO 

; INNER GUARD BAND 

;DO THE SEEK 


SET UP FOR SEEK TO 
;DESIRED TRACK ; 
+00 ANOTHER SEEK 


> SECTORS TO WRITE 
7 WRITE THEM 


,SET DIRECTION 

;VERIFY OVERWRITE 

; VERIFY OTHER DRIVES DATA 
; INCREMENT TQ NEXT TRACK 
;ACCOUNT FOR IT 

; DONE? 

>NO. GO BACK 


RESTORE REG 


;EXIT 


> STARTING SECTOP 


SEQ 0035 


om 


OUTERR 


DZRLFA. 
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023556 
023560 
023562 
023564 
023570 
023574 
023600 
023602 
023604 
023610 
023614 
023616 
023620 
023626 
023630 
023634 
023636 
023640 


023642 
023646 
023654 
023660 
023664 
023670 
023674 
023676 
023704 
023712 
023716 
023722 
023724 
022730 
023732 
023736 
023740 
023740 
023742 
023744 
023746 
023750 
023754 
023756 
023756 
023760 
023762 
023764 


023766 
023770 
023772 
023774 
023776 
024000 
024002 


06-CEC-77 


23-NOV-77 13:47 


010046 
010146 
010246 
012701 
012702 
016421 
005302 
001374 
012701 
153702 
000302 
006002 
032737 
001402 
052702 
052502 
030103 
001452 


C05037 
012737 
010237 
010237 
042702 
020227 
003403 
162737 
012737 
013702 
004537 
000012 
005737 
001416 
005737 
001007 


104464 
000144 
017645 
020004 
005237 
000760 


104463 
000156 
017645 
020004 


005202 


012600 


003020 
000200 
000006 


100000 
002710 


000400 
000100 


002700 
177600 
002772 
002656 
177700 
000047 


000050 
003020 
002656 
030550 
002664 


002700 


002700 


002710 


18:18 PAGE 83-19 


K 3 


GLOBAL SUBROUTINES SECTION 


WRSEC: 


23: 


35: 
4S: 


6S: 
1158: 


#128.,R2 
PAT(RY), (R1)+ 
R2 


2$ 
#100000, R1 
DESCYL,R2 
R2 


R2 
#400, DESCYL 
3$ 


#HEAD, R2 
(R5)+,R2 
R1,R3 

=) 


HSFLG 
R2,BDA 

R2- TEMP 
#177700,R2 
R2, #39. 

6$ 

#40. .BDA 
#BUF,BBA 
TEMP, R2 
RS, LDF UNC 


ERFLG 
5$ 
HSFLG 
10% 


100. WRIT1.ERR2 


TSERCODE 


110. ,-WRIT1-ERR2 


TSERCODE 


(SP)+,R1 
(SP)+,R0 


+ SAVE RO 


; R2 

s;WRITE PATTERN INTO 
MEMORY THAT WE 
;WILL WRITE ONTO 


;PRCK FOR THIS 
; ORIVE 


+MASK FOR BIT MAP 


;GET CYLINDER 
;PUT IN HIGH 


BYTE 
ALIGN FOR DISK ADDRESS 


+ WHICH a 
; | 


, 0, SK 

+SET BOTTOM HEAD 

+ START AT SECTOR 36 
+WRITE THIS SECTOR? 


‘ 


*LOAD WORD COUNT 
LOAD DISK ADDRESS 
; SAVE DISK ADDRESS 


;LOQD BUS ADDRESS 
RESTORE DISK ADDRESS 


+GO WRITE 


; ERROR IN WRITING 


7 NO, OKAY 


NEXT SECTOR 


CLEAR CARRY BIT 


+ DONE? 
>NO GO BACK 


>REGISTERS AND EXIT 


SEQ 0036 


Ooo 


OUTERR 
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024004 


024006 
024012 
024016 
024024 
024030 
024034 
024036 
024042 
024044 
024050 
024054 
024060 
024064 


024074 
024076 


024100 
024102 
024110 
024116 
024120 
024126 


024130 
024134 


024136 
024142 


024146 
024152 


024154 
024162 
024166 
024172 
024176 
024204 
024210 
024212 


024216 
024224 


024226 
024234 


O6-DEC-77 18: 


23-NOV-77 13: 47 


000205 


005037 
005037 
012737 
012701 
012537 
001003 
005037 
000205 
012537 
012537 
012537 
113700 
012737 


010102 


065300 
001414 


105722 
062737 
022737 
003366 
162737 
000762 


121227 
001002 


000137 
005037 


005737 
001403 


052737 
004537 
111237 
004537 
012737 
113703 
000303 
042703 


022737 
002003 


162737 
013737 


003002 
002704 
000001 
002114 
002670 
002674 
003006 
003010 
003012 


002670 
000020 


000042 
000050 


000050 


000377 


024560 
002710 
002704 


000400 
024706 
002710 
024706 
017625 
002671 
000377 
000047 


000050 
003016 


003004 


003016 


N03016 
002916 


N03016 


902710 


N02706 


003016 


003016 
024246 


L 3 
18 PAGE 83-20 
GLOBAL SUBROUTINES SECTION 


RTS RS 
ADJCYL: CLR ADJTRK 
CLR HEADO1 


MOV #1, ADJUUT 
215: MOV #OUT1IO.R1 
208: MOV ai 


BNE 1 
CLR ADJDIR 
RTS R5 
i$: MoV (R5)+,ADJLCZ 
MoV (R5)+,ADJLC3 
MOV (R5)+, ADJLC4 
25: MOVB ADJLOC. RO 
MOV #16. ,STSEC 
Mov R1,R2 
38: DEC RO 
BEQ 4$ 
TSTB (R2)+ 
ADD #34. ,STSEC 
CMP #49. ,STSEC 
BGT 35 
SUB #40. ,STSEC 
BR 3$ 
4S: CMPB (R2), #377 
BNE 5% 
JMP 13$ 
5%: CLR DESCYL 
TST HEADO1 
BEQ 6$ 
BIS #400, DESCYL 
6s: JSR RS, SKCYL 
MOVE (R2), DESCYL 
JSR RS, SKCYL 
MoV #FWO, DIRC 
MOVB ADJLOC+1-R3 
SWAB R3 
Bic #377,R3 
CMP #39. -STSEC 
BGE 7$ 
SUB #40... STSEC 
78. MoV STSEC, 8$ 


; INSIDEZOUTSIDE TRACK FLAG 
S INIT TO TOP SURFACE 

[START OF TRACK LIST 
P 
a 


1CK UP TRACK OFFSET 
5 THERE ONE? 


+NO EXIT 

+ YES, GET REST OF INFO 
*GET OFFSET 

STARTING SECTOR IS 16 
>GET START INTO R2 


>DOWN COUNT OFFSET 
FOUND IT? 


; INDEX (R2) 
;NO, NEXT SECTOR 


*BACK FOR NEXT 


/LEGAL TRACK? 
+ YES, CONTINUE 


7NQ PICK UP NEXT SET 
>SET UP FOR OUTER TRACK 


;WHICH HEAD? 
7 TOP, SKIP 


;LOWER HEAD. SET IT! 
>SEEK TO OUTER TRACK 
;GET DESIRED TRACK 
;SEEK TO IT 

>; SEEK DIRECTION 

;GET SECTORS TO WRITE 
>ALIGN IT 

;CLEAR OUT HIGH BYTE 


‘OVER FORTY? 
*NO. CONTINUE 


> YES BACK IT UP 
» STARTING SECTOR 


SEQ 0037 


ona 





OUTERR 
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024242 
024246 
024250 
024256 
024262 
024264 
024272 
024276 
024300 
024306 
024314 
024322 


024324 
024332 
024336 


024344 
624350 
024352 
024360 
024364 
024366 
024374 
024400 
024402 
024410 


024414 


024420 
024424 
024432 


024436 
024440 
O24444 


024452 
024456 


024460 
024466 
024472 
024474 
024502 
024506 
024510 
024514 


024522 
024526 


004537 
000000 
013737 
004537 
000000 
013737 
004537 
000000 
013737 
062737 
022737 
002003 


162737 
013703 
013737 


004537 
coo000 
013737 
004537 
000000 
013737 
004537 
000000 
112737 
004537 


111237 


004537 
012737 
113703 


000303 
042703 
013737 


004537 
000000 


013737 
004537 
000000 
013737 
004537 
000000 
013703 
013737 


004537 
006000 


. a 77—«*18: 
23-NOV-77 13:4 


023556 


024246 
026524 


024262 
026760 


003016 
000010 
000047 
000050 
003006 
003014 
023556 


024350 
026524 


024364 
026760 


000377 
024706 


002710 
024706 


017635 
003011 


000377 
003016 
023556 
024456 
026524 


G24472 
026760 


003012 
003014 


023556 


024262 


024276 


003014 
003014 
003014 


003014 


024356 


024364 


24400 


002710 


024456 


024472 


024506 


N24526 
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18 PAGE 83-21 
GLOBAL SUBROUTINES SECTION 
JSR R5, WRSEC 
83: . WORD 0 
MoV 8$, 108$ 
JSR RS, VAJWR 
1083: . WORD 0 
MOV 108$, 208% 
JSR R5, BSVWR 
2085: WORD 0 
MoV STSEC, STSEC1 
ADD #8.,STSEC1 
CMP #39. ,STSEC1 
BGE 9$ 
SUB #40.,STSEC1 
9S: MOV ADJLC2,.R3 
MoV STSEC1, 10% 
JSR RS, WRSEC 
108: . WORD 0 
MoV 10%, 110% 
JSR RS, VAJWR 
1108: .WORD O 
MOV 116%, 210% 
JSR R5, BSUWR 
2108: . WORD 0 
MOVB #377, DESCYL 
JSR RS, SKCYL 
MOVB (R2),DESCYL 
JSR R5, SKCYL 
MoV #REV, DIRC 
MOVB ADJLC3+1.R3 
SWAB R3 
Bic R377,R3 
MoV STSEC. 11% 
JSR RS, WRSEC 
115: _ WORD 0 
MoV 11%, 111% 
JSR RS, VAJWR 
1115: . WORD 0 
MoV 111%, 211% 
JSR RS, BSVWR 
2115: . WORD 0 
MoV ADJLC4,R3 
MoV STSEC1,.12$ 
JSR RS, WRSEC 
12% _ WORD 0 


SEQ 0038 
WRITE SECTORS 


+ VERIFY THIS WRITE 


+8 SECTORS GONE BY 
;GONE PAST 40? 

;NO, OKAY | 

+ YES BACK IT UP 

;GET SECTORS TO WRITE 
; STARTING SECTORS 


/WRITE SECTORS 


GET OTHER SECTORS TO WRITE 


VERIFY THIS WRITE 


:VERIFY ADJ CYL + 1 
+SEEK TO INNER TRACK 


SEEK BACK TO PROPER TRACK 
/SEEK TO PROPER CYLINDER 
*SEEK DIRECTION 

*GET SECTORS TO WRITE 
7;ALIGN IT 

;CLEAR OUT HIGH BYTE 


*WRITE PROPER SECTOR 


>VERIFY THIS WRITE 


GET SECTORS 
>GET SECTORS TO WRITE 


:WRITE PROPER SECTORS . 


oo 





MACY11 
Pil 


024530 
024536 
024542 


024544 
024552 
024556 


024560 
024564 
024566 
024572 
024574 
024600 
024604 
024610 
O24e12 


024616 
024622 
024624 
024630 
024632 
024636 
024640 
024644 
024650 
024654 
024660 
024666 
024670 
024674 
024676 
024700 
024704 


024706 
024710 
024714 


024716 
024722 


024724 
024726 
024732 


30(1046) 
23-NOV-77 


013737 
004537 
000000 


013737 
004537 
oc0000 


005737 
001003 
00&237 
000402 
005037 
062701 
020127 
002002 
000137 


005737 
001403 
005037 
000421 
00£737 
001004 
005237 
000137 
005037 
005237 
023737 
001402 
000137 
005725 
001376 
005037 
000205 


010146 
004537 
000010 


005737 
001074 


005001 
153701 
000301 


13:4 
024526 
026524 


024542 
026760 


002704 
002704 
002704 
000005 
002175 


024C60 


002654 
002654 
003002 
003002 
024024 
003002 
003004 
003004 


024024 


002674 


030550 


002664 


002716 


06-DEC-77 
47 


024542 


024556 


002716 


N 3 
GLOBAL SUBROUTINES SECTION 


18:18 PAGE 83-22 


MOV 12%, 112% 
JSR R5, VAJWR VERIFY THIS WRITE 
112%: .WORD O 
MOV 112%, 212% 
JSR RS, BSVWR VERIFY ADJ CYLINDERS + 1 
2128: WORD O 
135: TST HEAD +WHICH HEAD WERE WE DOING? 
BNE 14$ 
INC HEADO1 
BR 99% 
14: CLR HEADO1 NEXT SET OF TRACKS 
995: ADO #5,R1 *NEXT SET OF TRACKS 
CMP R1,®1NN5I *END OF LIST 
BGE 18$ END OF TRACK LIST 
JMP 2$ NO GO BACK 
>AT END OF TRACK LIST NEXT GROUP OF WRITES 
18s: TST FAD. *FIRST SET? 
BEQ 15% *NO, CONTINUE 
CLR FADS > YES, CLEAR FIRST 
BR 17% sEXIT 
158: TST ADJTRK ;DONE BOTH INSIDE OUTSIDE 
BNE 16$ TRACKS. YES 16% 
INC ADJTRK NO. SET INSIDE FLAG 
JMP 21% GO DO INSIDE TRACK 
16S: CLR ADJTRK +BACK TO OUTSIDE TRACK 
INC AD JUUT DONE WITH ANOTHER 
CMP AD JUUT. UUT /DONE TABLE FOR ALL UUT? 
BEQ 17$ +YES. FOR EXIT 
JMP 21$ NO, GO BACK FOR NEXT 
178 TST (R5)+ >BUMP EXIT TO END OF 
BNE 178 > TABLE FOR PROPER RETURN 
CLR ADJDIR 7EXIT 
RTS RS 


>ROUTINE TO SEEK TO A DESIRED CYLINDER 


/ CALL: JSR RS, SKCYL 


>ROUTINE HAS DESIRED CYLINDER IN LOC 


eae MoV! RL, -(SP) 
30S: JSR RS. LDF UNC 
RDHOR 
TST ERFLG 
3NE 5% 
CLR P1 
BiSB DESCYL-P1 
SWAB OPA 


“DESCYL™ 


SAVE RI 
>GET PRESENT POS!TION 


7 ERROR FLAG SET 
> YES, SKIP 


GET DESIRED CYLINCER 
>GET IN HIGH BYTE 


eli, 


SEQ 0039 


= Ton) 


sc SSS SSS SSS 


OUTERR 
DZRLFA. 
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MACY11 30(1046) O6-DEC-77 18:18 PAGE 83-23 
Pil 23-NOV-77 13:47 GLOBAL SUBROUTINES SECTION 

024734 006001 ROR ALIGN IT 

024736 042737 000177 002760 BIC #177,€. MP *;CLEAR PRESENT HD: SEC 
024744 163701 002760 SUB E.MP,R1 ; CALCULATE DIFFERENCE WORD 
024750 100002 BPL 1$ + 1F POSITIVE SET DIRECTION 
024752 005401 NEG R1 ; NEGATE 

024754 000402 BR 23 +SKIP SETTING DIRECTION 
024756 052701 O00004 1$: BIS SIGN, R1 +SET FOR FORWARD SEEK 
024762 052701 000001 23: BIS MK, R1 +SET MARKER BIT 
024766 032737 OO00400 002710 BIT #400. DESCYL +WHICH HEAD 

024774 001402 BEQ ; TOP 

024776 052701 000020 BIS #SKHS, R1 + BOTTOM 

025002 010137 002772 35: MOV R1,BDA +LOAD DIFFERENCE WORD 
025006 004537 030550 JSR RS, LOFUNC EXECUTE SEEK 

025012 000006 SEEK 

025014 005737 002664 TST ERFLG 7 ERROR? 

025020 001035 BNE 5% > YES, SKIP 

025022 004537 030550 JSR R5, LOFUNC ;VERIFY POSITION? 
025026 000010 RDHDR 

025030 005737 002664 TST ERFLG 

025034 001027 BNE 5% 

025036 042737 000077 002760 BIC #77,E. MP > VERIFY POSITION 
025044 005001 CLR Ri 

025046 153701 002710 BISB DESCYL,R1 > 1S CORRECT AND IF 
025052 000301 SWAB R1 ;NOT CORRECT THEN 
025054 006001 ROR R1 ; RESEEK 

025056 032737 O00400 002710 BIT #400. DESCYL 

025064 001402 BEQ 4S 

025066 052701 000100 BIS #HEAD, R1 

025072 020137 002760 4S: CMP R1,E£. MP 

025076 001414 BEQ 6$ 

02£100 ERRDF 12..SKER-ERRG ;SEEK ERROR 

025100 104462 TRAP TSERCODE 

025102 000014 .WORD 12 

025104 017606 .WORD  SKER 

025106 020422 .WORD ERR6 

025110 000137 024710 JMP 908 

025114 5S: ERROF 13.,FUNERR-ERRS :FUNCTION ERROR IN SEEK 
025114 104462 TRAP TSERCODE 

025116 000015 .WORD 13 

025120 017556 . WORD FUNERR 

025122 020362 -WORD = ERRS 

025124 000137 024710 JMP 908 

025130 01260! oS: MoV (3P)+,R1 >CANT GET THERE 
025132 000205 RTS R5 >EXIT 

ROUTINE TO PERFORM REGISTER PRINTOUT DUMP 
-CALL: JSR PC, REGDMP 

025134 REGOMP: PRINTB #FRM12, BCS. BBA, BOA, BMP 

025134 013746 002774 MoV BMP, -(SP) 

025140 013746 002772 MOV BDA, - (SP) 

025144 013746 002770 MoV BBA, - (SP) 


SEQ 0040 


on 


Cc 8 


OUTERR MACY11 30(1046) O6-DEC-77 18:18 PAGE 83-24 
DZRLFA. P11 23-NOV-77 13:47 GLOBAL SUBROUTINES SECTION SEQ 0041 
(8) 025150 013746 002766 MOV BCS, -(SP) 
(7) 025154 012746 021361 MOV #FRM12,-(SP) 
6) 025160 012746 000005 MOV #5, -(SP) 
(3) 025164 010600 MOV SP,RO 
(4) 025166 104014 EMT CSPNTB 
(4) 025170 062706 000014 ADD #14, SP 
3834 025174 PRINTB #FRM13-E. athe BA. E. DA. E. MP 
(11) 025174 013746 002760 MOV E. MP, -(SP) 
(10) 025200 013746 002756 MOV E. OA, - (SP) 
(9) 025204 013746 002754 MOV E. BA. - (SP) 
(8) 025210 013746 002752 MOV E. CS, -(SP) 
(7» 025214 012746 021440 MOV #FRM13,-(SP) 
(6) 025220 012746 000005 MOV #5,-(SP) 
(3) 025224 010600 MOV SP. RO 
(4) 025226 104014 EMT CSPNTB 
(4) 025230 062706 000014 ADO #14, SP 
3835 025234 032737 O40000 002752 BIT aBiTi4,—.cs 
3836 025242 001437 BEQ 1$ 
3837 025244 016403 000000 MOV CSR(RY), RZ 
3838 025250 012763 000013 000004 MOV #13, DACR3) 
3839 025256 C12737 O00004 002766 MOV #4,BCS 
3840 025264 056437 O00004% 002766 BIS DSB(R4), BCS 
3841 025272 013763 002766 9000000 MOV BCS, CS(R3) 
3842 025300 032763 000200 900000 23%: BIT #290, CS(R3) 
3843 025306 001774 BEQ 2$ 
3844 025310 016337 000006 902676 MOV MP(R3),ORSTAT 
3845 025316 PRINTB #FRM14, DRSTAT 
(8) 025316 013746 002676 MoV DRSTAT, -(SP) 
(7) 025322 012746 021523 MOV #FRM14, - (SP) 
(6) 025326 012746 oO00002 MOV #2, -(SP) 
(3) 025332 010600 MOV SP, RO 
(4) 025334 104014 EMT CSPNTB 
(4) 025336 062706 000006 ADO #6, SP 
os 02£342 000207 1$: RTS PC 
847 
3848 ;ROUTINE TO SET DRIVE IN SECTOR tty 
3849 *CALL: JSR RS, SETLST Q HAS SECTOR 
3850 DRIVE GOTTEN FROM R4 
3851 
3852 025344 010146 SETLST: MOV R1,- SP) ; SAVE P1 
3853 
3854 025346 162700 000034 SUB #28. .R0 >START LIST AT O 
3855 025352 100092 BPL 3$ 
3856 025354 062700 900050 ADO #40. RO 
3857 025360 012701 002176 3$: MOV #SECLST. FI >BEGINNING OF SECTOR LIST 
3858 025364 005700 1%: TST RO *FOUND SECTOR? 
3859 025366 001403 BEQ 2 BRANCH IF YES 
3860 025370 005300 DEC RO *DECREMENT SECTOR 
3861 025372 005721 TST (R1)+ >NEXT ENTRY IN LIST 
3862 025374 000773 BR 1$ >GO BACK 
3863 025376 010411 2$ MOV R4, (R1) *STORE DRIVE BITS 'N LIST 
3864 025400 012601 MoV (SP)+,R1 *RESTORE R1 
ey 025402 000205 RTS RS 
66 
3867 “ROUTINE TO STORE OR RETRIEVE ADJACENT CYLINDER SECTOR DP IVE 


3868 : INFORMATION FROM THE 24X5 “SECLST” BUFFER 





OUTERR 
DZRLFA 


MACY11 30(1046) 


.Pil 


025404 
025406 
025410 
025412 
025416 
025422 
025426 
025432 
0254 36 
025442 
025444 
O25446 
025452 
025456 
025462 
025464 
025470 
025472 
025476 
025500 
025502 
025504 
025506 
025512 
025514 
025520 
025522 
025524 
025526 
025530 
025534 
025536 
025540 
025642 


06-DEC-77 


23-NOV-77 13: 47 


010146 
010246 
010346 
042700 
£12537 
012701 
012702 
012703 
123701 
001413 
005201 
062702 
062703 
C2032? 
002765 
162703 
000762 
012701 
020003 
001413 
005722 
005203 
020327 
003402 
162703 
005301 
001365 
005000 
000405 
005737 
001401 
010412 
011200 
012603 


177700 
002672 
000001 
002236 
000020 
002670 


000060 
000042 
000050 
900050 


000020 


000047 
000050 


002672 


18:18 PAGE 83-25 


D4 


2 
GLOBAL SUBROUTINES SECTION 


ENTER WITH RO = SECTOR REQUEST 


[EXIT WITH RO 
SEXIT WITH RO 
> CALL 1: 
CALL 2: 


RSADJS: MOV 
MoV 


18: CMPB 


4S: DEC 


ADJACENT CYLINDER DRIVE INFORMATION FOR SECTOR 
O IF SECTOR REQUESTED IS NOT IN BUFFER MAP 


JSR RS, RSADJS 
.WORD OQ 
JSR RS, RSADJS 
.WORD 1 


#177700,R 


0 


(R5)+, ADJFLG 
1,R 


#1,R1 
#SECBUF,R 
#16. .R3 
ADJLOC. R1 


2 


RETRIEVE SECTOR INFO. 
STORE SECTOR INFO 


SAVE SECTOR BITS 

;SAVE RETRIEVE/STORE FLAG 

START WITH TRACK (N-2) 

+ START OF 24X5 BUFFER 

+ SECTOR 16 START FOR (N-2) TRACK 
; CHECK TRACK INDEX 


: INDEX TRACK REFERENCE 
[UPDATE BUFFER TO NEXT TRACK REF 
“UPDATE SECTOR START FOR NEXT TRACK 


>SET COUNTER FOR 24 SECTORS 
COMPARE SECTOR TO SECTOR TABLE 

> YES, STORE OR RETRIEVE SECTOR INFO 
; INDEX SECLST BUFFER IN WORD FORMAT 
> INDEX SECTOR COUNT 

COMPARE SECTOR COUNT FOR <40 


> KEEP SECTOR COUNT<40O 

>PASSED 24 SECTORS? 

> COMPARE NEXT SECTOR 

>SETUP RO FOR EXIT 

;EXIT ROUTINE, SECTOR NOT FOUND 
>FLAG=O FOR RETRIEVE 


/STORE ORIVE INFO. INTO BUFFER 
/SAVE DRIVE INFO INTO RO FOR EXIT 


SEQ 0042 


ons 
















































OUTERR 
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025544 
025546 
025550 


025552 
025554 
025560 
025562 
025566 
025572 
025574 
025576 
025600 
025602 
025604 
025606 
025610 


025612 
025614 
025616 
025620 
025626 
025632 


025640 
025646 
025654 
025662 
025670 
025672 
025674 
025700 


025702 
025706 


025710 
025714 
025716 
025724 
025732 
025740 
025742 


MACY11 30(1046) 
23-NOV-77 1 


012602 
012601 
000205 


010146 
162700 
100002 
062700 
012701 
005700 
001403 
005300 
005721 
000773 
011100 
012601 
C00205 


010046 
010146 
010246 
012737 
012701 
016437 


012737 
012737 
042737 
053737 
030103 
001521 
004537 
000014 


005737 
100107 


005737 
001412 
012737 
016437 
016437 
000415 
012737 








000034 


000050 
002176 


000034 
100000 
000096 


177600 
003020 


000077 
002720 


030550 


002752 


002652 
017102 
000000 
000005 


017351 


06-DEC-77 
3:47 


002720 
002724 


002774 
002770 
062772 
002772 


002662 
002060 
002722 


002662 





s EXIT 


+RO-CONTAINS SECTOR 
ON EXIT RO-DRIVE 


SAVE R1 
+START LIST AT O 


+START OF LIST 

+FOUND SECTOR? 

YES, GET DRIVE &#. EXIT 
+NO, DOWN COUNT SECTOR 
+NEXT ENTRY IN LiST 

GO BACK 

+GET vob | —— POINTER 
*RESTORE R 

sEXIT 


. os 
18:18 PAGE 84 

GLOBAL SUBROUTINES SECTION 

MoV (SP)+,R2 

MOV (SP)+,R1 

RTS RS 
*+ROUTINE TO LOCATE DRIVE THAT WROTE SECTOR LAST 
*CALL: JSR RS, FNDDRV ; 
FNDDRV: MOV R1,-(SP) 

SUB #28. ,R0 

BPL 3$ 

ADD #40. ,R0 
34: MOV RSECLST.R1 
1$: TST RO 

BEQ 2$ 

DEC RO 

TST (R1i)+ 

BR 1$ 
23: MOV (R1),RO0 

MOV (SP)+,R1 

RTS RS 


; ROUTINE TO VERIFY THAT THE OVERWRITE DID ACTUALLY OVERWRITE THE 
;PREVIOUS DATA ON THE PACK. 


“CALL. JSR 


VEROW: MOV 


1S: MoV 
23: BIC 


215: MoV 


RS, VEROW USES R3 AS BIT MAP OF SECTORS TO 
CHECK. R3 1S LOADED PRIOR TO 
WRITING SECTORS. 

RO, -(SP) ;SAVE REGISTER CONTENTS 

Ri,-(SP) 

R2,-(SP) 

#28 ,SECT ;START VERIFY AT SECTOR 28 

#100000, R1 >BIT MASK FOR VERIFICATION 

PAT(R4Y),GDATA ;GET PATTERN FOR THIS DRIVE 

#-128..BMP >SET UP READ-ONE SECTOR 

#BUF, BBA +BUS ADDRESS 

#77,BDA >CLEAP OUT SECTOR BITS 

SECT, BDA SET SECTOR 

R1,R3 >DO WE READ THIS ONE? 

5% +NO. BRANCH 

R5, LOFUNC , READ 

—E.cs > ERROR 

4% +NO CONTINUE 

FOWR oe WRITE 

21% NO 

# INI THR, REASON ; SETUP INITIAL WRITE OF SECTOR 

CSR(R4Y),-LSTCLR 

DSB+1(R4),LSTORV 


228 
ROVMES, REASON 


/SET MESSAGE FOR OVEPRWRITE 


SEQ 0043 


— | 


| oe) 





MACY11 30(1046) 
.Pul 


025750 
025754 
025760 
025766 
025774 
025774 
025776 
026000 
026002 
026004 
026010 
026014 
026020 
026024 
026026 
026032 
026032 
026034 
026040 
026044 
026050 
026054 
026056 
026060 


026064 
026066 
026072 
026100 


026102 
026102 
026106 
026112 
026116 
026120 
026122 


026126 
026132 


026! 36 
026142 
026150 
026152 
026160 
026162 
026164 


026166 
026170 
026172 
026174 


06-DEC-77 


23-NOV-77 13:47 


013700 
004537 
016037 
116037 


104462 
000015 
017512 
020176 
005037 
005037 
012702 
022712 
001417 
005237 


011246 
013746 
013746 
012746 
012746 
010600 
104017 
062706 


005722 
005237 
023727 
001347 


013746 
012746 
012746 
010600 
104017 
062706 


013700 
004537 


005237 
023727 
001003 
162737 
000241 
006001 
103225 


012602 
012601 
012600 
000205 


002720 
025552 
000000 
000005 


002730 
002732 
003020 
002724 


002730 
002724 
002732 


021152 
000004 


000012 


002732 
002732 


002730 
021216 
000002 
000006 


002720 
025344 


002720 
002720 


900050 


002660 
002722 


900050 
002720 


18:18 PAGE 


FY 


84- 
GLOBAL SUBROUTINES SECTION 


228 


3 


3 


4 


oS: 


S$: CMP 


EMT 
ADD 


1$. TST 
INC 
CMP 
BNE 


PRINTF 
MoV 


$: MoV 


SECT, RO 
RS, FNDORV 
CSR(RO),-LSTCLR 


DSB+1(RO).LSTORV 


13. , OVWER, ERRY 
—— 


GDATA, (R2) 
31$ 
WCOUNT 


SEQ 0044 


;FIND DRIVE THAT LAST WROTE 
+ SECTOR 

;GET IT'S CSR 

GET THE ORIVE 

+PRINT ERROR 


; CLEAR BAD WORD COUNT W/IN SECTOR 
CLEAR WORD IN SECTOR 

GET BUFFER START 

1S DATA CORRECT? 

+ YES CHECK NEXT 

NO ACCOUNT FOR IT 


#FRM8, SECWRO, GDATA, (R2) 


(RZ), -CSP) 
GDATA, - (SP) 
SECWRD. -(SP) 
RF RMB, - (SP) 
#4, -(SP) 
SP. RO 
CSPNTF 

12, SP 


(R2)+ 
SECWRD 
SECWRD, #128 
3% 


#FRMI, WCOUNT 
WCOUNT, - (SP) 
#FRMY, - (SP) 


SECT. RO 
RS, SETLST 


SECT 
SECT, #40 


6$ 
#40... SECT 


Ri 
1$ 


(SP )+,R2 
(SP)+,R1 
(SP)+,RO 
RS 


> NEXT 

;NEXT 

;DONE WITH SECTOR? 
>NO GO BACK 


PRINT SUMMARY 


*>SET SECTOR IN LIST TO THE 
>CRED!T OF THIS DRIVE 


>NEXT SECTOR 


> CLEAR CARRY 
>NEXT BIT 
> IF CLEAR NEXT 


;RESTORE R2-RO. Exit 


“ROUTINE TO VERIFY THAT A ORIVE CAN RECOWER ANOTHER DPIVE'S CRTA 


oo 


OUTERR 
DZRLFA. 


4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4O14 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4O34 
4035 
4036 
4037 
(3) 
(5) 
(5) 
(5) 
4038 
4039 
4040 
4041 
4042 
4043 
4YO44 
4¥O4S 
4046 
(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
4047 
4048 


MACY11 


Pil 


026176 
026200 
026202 
026204 
026210 
026216 
026222 


026224 
026232 
026240 
026246 
026254 
02625€ 


026260 
026264 
026270 
026276 
026304 


026312 
026316 


026320 
026324 
026326 
026334 
026334 
026336 
026340 
026342 


026344 
026350 
026354 
026360 
026364 


026366 
026372 
026372 
026374 
026400 
026404 
026410 
026414 
026416 
026420 


026424 


G 4 


3011046) . _ 77 «18:18 PAGE 84-2 
23-NOV-77 13:4 GLOBAL SUBROUTINES SECTION 
;CALL: JSR R5, VEROD USES R3 AS BIT MAP OF SECTORS TO 
; CHECK. R3 1S LOAD BY WRSEC (WE 
; USE R3 COMPLIMENTED 
010046 VEROD: MOV RO, -(SP) ; SAVE RO-R2 
010146 MOV R1i,-(SP) 
010246 MOV R2,-(SP) 
012701 100000 MOV #100000, R1 ;BIT MASK FOR SECTORS 
012737 000034 002720 MOV #28. ,SECT ; START WITH SECTOR 28 
005737 002652 TST FOWR ; CHECK FOR FIRST OVERWRITE 
001134 BNE 6$ 
012737 177600 002774 1%: MOV #-128.. BMP ;SET UP READ (ONE SECTOR) 
012737 003020 002770 MoV #BUF,BBA ;BUS ADDRESS 
042737 000077 002772 2%: BIC #77,B8DA ;CLEAR SECTOR BITS 
053737 002720 002772 BIS SECT. BDA ;SET IN SECTOR BiTS 
030103 BIT R1,R3 ; CHECK THIS SECTOR? 
001103 BNE 5$ ;NO BRANCH 
(13700 002720 MoV SECT. RO ;F IND ORIVE THAT WROTE 
004537 025552 JSR RS, FNDDRV ;SECTOR LAST 
016037 900000 202660 MOV CSR(RO)-LSTCLR ;GET CSR OF DRIVE 
116037 000005 902722 MOVB DS8+1(RO),.LSTORV ;GET DRIVE 
016037 oa00006 00272 Mov PAT‘(RO), GDATA ; GET PATTERN 
004537 a30550 JSR RS, LDFUNC > READ 
000014 READ 
005737 002752 TS) £.<s ; ERROR? 
100060 BPL 55 ;NO, NEXT SECTOR 
012737 017404 002662 MOV #RECMS, REASON ;SET READ RECOVERY MESSAGE 
ERRDF 14.,RECER,-ERRY -;:REPORT ERROR 
104462 TRAP TSERCODE 
000016 WORD 14 
017532 WORD RECER 
020176 WORD ERR4Y 
005037 002730 CLR WCOUNT ; CLEAR BAD WORD COUNT 
005037 002732 CLR SECWRD >CLEAP WORD W/I SECTOR 
012702 003020 MoV #BUF,.R2 >; START OF BUFFER 
023712 002724 3$ CMP GDATA, (R2) :>DATA COMPARE 
001417 BEQ 4S > YES. CHECK NEXT 
005237 002730 INC WCOUNT ; ACCOUNT FOR ERROR 
PRINTF @FRM8,.SECWRD.GDATA.(R2) -PRINT ERROR 
011246 MoV (R2),-CSP) 
013746 002724 MoV GDATA, -(SP) 
013746 002732 MoV SECWRD, - (SP) 
012746 021152 MOV #FRMS,-(SP) 
012746 9000004 MOV #4,-(SP) 
010600 MOV SP.RO 
104017 EMT COPNTF 
062706 9000012 ADD #12, SP 
005722 4S. TST (R2)+ :NE™T 


SEQ 0045 


H 4 te nish oe ae 


QUTERR MACY11 30(1046) O6-DEC-77 18:18 PAGE 84-3 


DZPLFA P 1d 23-NOV-77 13: 47 GLOBAL SUBROUTINES SECTION SEQ 0046 
4049 026426 005237 002732 INC SECWRD ;NEXT WORD IN SECTOR 
405C 026432 023727 002732 000200 CMP SECWRD, #128. ; DONE? 


4051 O2644O0 001347 BNE 3$ ;NO 


rim 


; 5 


QUTERR MACY11 30(1046) Q6-DEC-77 18:18 PAGE 85 
DZRLFA.P11 © 23-NOV-77 13:4 GLOBAL SUBROUTINES SECTION 
W053 
wOS4 026442 PRINTF #FRN9,WCOUNT > PRINT SUMMARY 
(8) 026442 013746 002730 Mov WCOUNT,-(SP) 
(7) 026446 012746 021216 Mov #FRNG, - (SP) 
(6) 026452 012746 000002 Mov #2, -(SP) 
(3) 026456 010600 MOV SP, RO 
(4) 026460 104017 ENT CSPNTF 
4) 026462 062706 000006 ADD #6, SP 
y 
4056 O26466 005237 002720 5S. INC SECT ;NEXT SECTOR 
W057 026472 023727 002720 900050 CMP SECT, #40 
4058 026500 001902 BNE 75 
4059 026502 006037 002720 CLR SECT 
wOeO 026506 000241 75: CLC 
4061 026510 006001 ROR RI ;NEXT BIT MAP 
4Oe2 026512 103244 BCC 1$ 
406 
4Oe4 026514 012602 es. Mov (SP)+,P2 ;RESTORE R2-RO, EXIT 
w0eS O2651e 012601 MoV (SP)+,R1 
¥066 026520 012600 Mov (SP)+, RO 
W067 026522 00205 RTS RS 
4068 
4069 
4070 /ROUTINE TO VERIFY THE ADJ. CYL. WRITE 1S GOOD 
4071 USES R3 AND WORD FOLLOWING CALL 
4072 IF WRITE WAS GOOD, SECTOR WILL BE STORED IN MAP 
wor USING RSADJS/. WORD 1 
4074 
¥O75 026524 010046 VAJUR: MOV RO. -(SP) SAVE REGISTERS 
yO76 026526 010146 Mov P1,-(SP) 
4077 026530 010246 MOV R2,-(SP) 
4078 026532 012701 100000 MoV #100000. R1 BIT MASK FOR CYLINDEP 
4079 026536 012502 MoV (RS)+,P2 “STARTING SECTOR 
yO80 026540 105000 CLRB RO 
W081 026542 153700 002710 BISB DESCYL-RO 
¥082 026546 000300 SWAB RO 
4083 026550 006000 POR RO 
4084 026552 022737 020400 02710 BIT #400, DESCYL 
¥O8S 026560 001402 BEG 3$ 
yO8@ 026562 052700 000100 BIS #HEAD, RO 
408? 026566 050200 3S: BIS R2,RO 
W088 026570 030103 4S. BIT R1-R3 
4089 026572 001462 BEQ 5$ 
4090 026574 012737 177600 002774 MoV #-128.. BHP 
yO91 026602 010037 002772 Mov RO. BDA 
4092 026606 010037 002656 MoV RO. TEMP 
W093 026612 042700 177700 BIC #177700. RO 
4094 026616 020027 000047 CMP RO, #39 
¥095 026622 003406 BLE 6$ 
4096 026624 162737 000050 002772 SUB #40. .BDA 
4097 026632 162737 000050 002656 SUB #40., TEMP 
4098 026640 012737 003020 002770 eS. nov #BUF, BBA 
4099 026646 005037 002700 CLR HSFLG 
4100 026652 013700 002656 nov TEMP, RO 
4101 026656 004537 030550 10S: JSR R5. LDF UNC -PEAD FUNCTION 


4102 026662 000014 READ 


oOo 












OUTERR 
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4103 
4104 
4105 
4106 
4107 
(3) 
(§) 
(5) 
(5) 
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026664 
026670 
026672 
026676 
026700 
026700 
026702 
026704 
026706 
026710 
026714 
026716 
026716 
026720 
026722 
026724 
026726 
026730 
026734 
026736 
026740 
026742 
026744 
026746 
026750 
026752 
026754 
026756 


026760 
026762 
026764 
026766 
026772 
026774 
027002 
027004 
027010 
027012 
027016 
027024 
027026 
027032 
027036 
027042 
027046 
927052 
027056 


MACY11 3001046) 
23-NOV-77 13:47 


005737 
001416 
005737 
001007 


104464 
000170 
017672 
020004 
005237 
000760 


104463 
000202 
017672 
020004 
010046 
004537 
000001 
012600 
005200 
000241 
006001 
103310 
012602 
012601 
012600 
000205 


010046 
010146 
010246 
013746 
012546 
123727 
001455 
162716 
100002 
062716 
123727 
001412 
105337 
105337 
004537 
105237 
105237 
062716 
021627 


002664 
002700 


002700 


25404 


002710 
002670 
000042 


000050 
002670 


002670 
002710 
027160 
002710 
002670 
000104 
000050 


06-DEC-77 


900903 


000001 


18:18 PAGE 85-1 





J 4 
GLOBAL SUBROUTINES SECTION 


TST ERFLG 
BEQ 7$ 
TST HSFLG 
BNE 11$ 
ERRSOFT 120.,READ1,ERRZ 
TRAP TSERCODE 
.WORD 120 
.WORD = READI 
-WORD = ERRZ2 
INC HSFLG 
BR 10$ 
115: ERRHRD 130..READ1,ERR2 
TRAP TSERCODE 
WORD 130 
WORD = READI 
WORD = ERR2 
7$ MOV RO,-(SP) 
JSR RS, RSADIS ;STORE ADJ. CYL. SECTOR INFO 
. WORD 1 
MoV (SP)+,R0 >RESTORE PO 
5S: INC ROU 
CLC 
ROR Ri 
BCC Us 
MOV (SF)4,R2 
MoV (SP)+,R1 
MOV (SP)+,R0 
RTS RS 


>ROUTINE TO VERIFY THAT WRITE CID NOT DISTURB ADJACENT TRACKS 
-WRITTEN BY OTHER DRIVES 
>CALL «JSR RS. BSVWR 

i . WORD STARTING SECTOR 


: USES “ADJLOC" TO GET +1/-1 CYLINDER OFFSET 
;USES R3 FOR SECTOR MAP. USES MAP AT “SECBUF” FOR INFO 


BSVWR: MOV RO, -(SP) > SAVE REGISTERS 
MoV R2,-(SP) 
MoV DESCYL,-(SP) SAVE PRESENT POSITION 
MOV (R&)+,-(SP) GET STARTING SECTOR 
CMPB ADJLOC. #3 ON MIDDLE TRACK??? 
BEQ BSEXIT ; VES. THEN NO CHECK 
SUB #34. (SP) ; SETUP SECTOR START FOR OUTSIDE 
BPL 1$ > 1F POSITIVE OKAY ELSE FIX 
ADD #40... <SP) /FIX IT 
1%: CMPB ADJLOC, #1 ON OUTER LIMIT??> 
BEQ 1 NAWR > YES. SKIP CHECK 
DECB ADJLOC / OUTER ADJ TRACK 
DECB DESCYL *CREATE CYLINDER 
JSR RS, CHECK GO CHECK ADJ SECTORS 
INCB DESCYL -FIX BACK 
INCB ADJLOC 
\NAWP: ADD #65. . (SP) > INNER SECTOR STAPT 
CMP (SP). #40 WITHIN LIMITS??? 


SEQ 0048 


oy 
| 
| 





OUTERR 


DZRLFA. 


4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 


MACY11 30(1046) 


Pil 


027062 
027064 
027070 
027074 
027076 
027102 
027110 
027112 
027116 
027122 
027126 
027132 
027136 
027140 
027144 
027146 
027150 
027152 
02715¢€ 


027160 
027164 
027170 
027172 
027176 
027200 
027202 
027210 
027212 
027216 
027222 
027224 
027226 
027230 
027234 
027240 
027242 
027246 
027252 


027310 


027312 
027314 


06-DEC-77 


23-NOV-77 13:47 


002407 
162716 
021627 
002402 
162716 
123727 
001412 
105237 
105237 
004537 
105337 
105337 
00£726 
012637 
012602 
012601 
012600 
004537 
000205 


012701 
004537 
n0s0oc2 
153702 
000302 
006002 
032737 
001402 
052702 
056602 
030103 
001452 
010200 
042700 
020027 
002404 
162700 
162792 


005737 
001420 


010346 
010237 


000050 
000050 


000050 
002670 


002670 
002710 
027160 
002670 
002710 


002710 


024706 


100000 
024706 


002710 


000400 


000100 
000002 


177700 
000050 


000050 


000050 
025404 


002772 
177600 
030550 


002664 


00272 


000005 


002710 


002774 


18:18 PAGE 85-2 


K 4 


GLOBAL SUBROUTINES SECTION 


1$: 


BSEXIT: 


1$ 
#40. . (SP) 
(SP), #40. 
1$ 


#40... (SP) 
ADJLOC, #5 
BSEXIT 

AD JLOC 
DESCYL 
RS, CHECK 
ADJLOC 
DESCYL 
(SP )+ 
(SP)+, DESCYL 
(SP)+,RZ 
(SP)+,R1 
(SP)+,R0 
RS, SKCYL 
RS 


> YES, OKAY 
;FIX SECTOR 


+ INNER LIMIT?? 
> YES, SKIP CHECK 
;FIX FOR INNER 


>GO CHECK ADJ SECTORS 
FIX BACK 


> THROW OFF SECTOR 
:GET OLD CYLINDER 


SEEK BACK 
+ RETURN 


>ROUTINE TO VERIFY AN ADJACENT SECTOR 
CALLED FROM BSVWR 


CHECK: 


35: 
4S: 


oS: 


MOY 
JSR 
CLR 
BISB 
SWAB 


#100000, R1 
RS, SKCYL 


R2 
DESCYL.R2 
R2 


R2 

#400, DESCYL 
3$ 
#HEAD, RZ 


#177700, R0 
RO, #40. ; SECTOR 
6$ 

#40.,R0 

#40. ,.R2 

R5, RSADJS 

0 

RO 


#-128.. BMP 
RS, LDF UNC 


ERFLG 
5$ 


R3.-(SP) 
R2, SECT 


SECTOR MASK 
GET TO DESIRED CYLINDER 
CREATE ADDRESS 


;HEAD SET??? 
NO 


;SET IN SECTOR 

; THIS SECTOR IN LIST??? 
;NQ, NEXT 

;COPY SECTOR 

;ONLY SECTOR LEFT 
OKAY??? 

YES 


FIX SECTOR 
;FIND IF SECTOR PREVIOUSLY WRITTEN 


;WAS 1T?? 

;NO 

;LOAD DISK ADDRESS 
;LOAD WC 

> LOAD 


*WAS READ GOOD 


SEQ 0049 


rom 


OUTERR 


DZRLFA. 


4207 
4208 
4209 
4210 
(3) 
(5) 
(5) 
(5) 
4211 
4212 
(3) 
(5) 
(5) 
(6) 
4213 


MACY11 3001046) 


Pil 
027320 


027322 
027330 
027330 
027332 
027334 
027336 
027340 
027342 
027342 
027344 
027346 
027350 


027352 


027364 
027366 
027370 
027372 
027400 
027406 
027414 
027420 
027422 
027426 
027430 
027436 
027444 
027446 
027446 
027452 
027456 
027460 
027462 
027466 
027466 
027470 
027472 


06-DEC-77 


23-NOV-77 13:47 


010003 
042737 


104463 
000214 
017717 
020044 
012603 


104463 
000156 
017672 
020004 


005202 
000241 


000205 


010146 
010246 
010346 
012737 
012737 
012737 
004537 
000014 
005737 
001421 
062737 
022737 
001363 


012746 
012746 
010600 
104017 
062706 


104022 
000776 
012701 


177700 


003420 
077724 
177400 
030550 
002664 
000004 
077750 


021552 
000001 


000004 


003630 


002720 


002770 
002772 
002774 


002772 
002772 


18:18 PAGE 85-3 
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GLOBAL SUBROUTINES SECTION 


MOV 


5S: INC 


RO.R3 


#177700. SECT 
140. , ADJTXT, ERRZ 
TSERCODE 


140 
ADJTXT 
ERR3 


(SP)+,R3 
110. , READ, ERR2Z 
TSERCODE 


R2 NEXT SECTOR 
R1 > SHIFT MASK 


ROUTINE TO MERGE BAD SECTOR FILES 

ENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE “SERNUM" ROUTINE 
> 1S PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN 
7FIRST 400(8) LOCATIONS. 

; THIS ROUTINE WILL STORE THE FIELD BAD SECTORS INTO THE NEXT 
>400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE 

;WITH THE FIELD BAD FILE. 


;FACTORY BAD AT BUF 
:>FIELD BAD AT BUF + 512. 


MERGE: MOV 
MoV 
MoV 


9995: BREAK 


988: MOV 


R1.-(SP) ;SAVE P1, R2, RI 

RZ. - (SP) 

R3,- (SP) 

#BUF +400, BBA ;BUFFER START FOR FIELD BAD 
#77724, BDA ;DA OF FIELD BAD SEC. START 
#-256. , BMP ;SETUP TG READ TWO SECTORS 
R5, LDF UNC ;LOAD READ FUNCTION 

ERFLG > TEST ERROR FLAG 

985 ; YES; MERGE BAD SECTOR FILES 
#4, BDA ;TRY NEXT FIELO BAD SECTOR FILE 
#77750. BDA > COMPLETED FIELD BAD SECTORS? 
975 >NO,DO NEXT FIELD BAD SECTOR 
ar RMis 

#FRM15, -(SP) 

#1,-(SP) 

SP,.RO 

CSPNTF 

#4, SP 

CSBRK 

9995 

#BUF +10, R1 GET PAST ID ETC 


SEQ oo 


mr 


OUTERR 
DZRLFA 


MACY11 301046) 
23-NOV-77 


.PUl 


027476 
027502 
027504 
027506 
027510 
027512 
027514 
027516 
027520 
027524 
027530 
027532 
027534 
027536 
027540 
027542 
027544 
027546 
027550 


027552 
027556 


012702 
005721 
100404 
005721 
005302 
001373 
000401 
005741 
012703 
012702 
012221 
100403 
012221 
005303 
001373 
012603 
012602 
012601 
000205 


012537 
012537 


13:4 
000176 


000176 
003430 


002734 
N02744 


06-DEC-77 
7 . 
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GLOBAL SUBROUTINES SECTION 


1$: 


23: 
35: 


4S: 


5S: 


FNOTRK: 


MOV 
MOV 


#126. .R3 
#BUF +410, RZ 
(R2)+, (RI)+ 


5% 
(R2)+, (R1I)+ 
R3 


4S 
(SP)+,R3 
(SP)+,R2 
(SP)+,P1 
R5 


(R5)+, OFFSET 
(R5)+, SURFACE 


SEQ 0051 


+ MAX = 126 

;SECTOR OR END 

;END, GO GET FIELD 

;REST OF SECTOR 

;MAX REACHED 

;NO, KEEP GOING 

+; YES. SKIP BACK UP 

;BRCK UP PAST TERMINATOR 
;SET 126 MAX 

;GET FIELD SECTORS 

; MERGE AT END OF FACTORY 


; DONE? 

;NO, MERGE REST OF SECTOR 
+ DONE 

;NO, GO BACK 

;RESTORE R3. RZ, Ri 

; EXIT 


GET INCREMENT/DECREMENT 
GET HEAD (SURFACE) 


¢ 
0 
£ 
f 
£ 
£ 
f 
f 
£ 
F 
f 
f 
Rs 
é 
¢ 
f 
f 
é 
‘ 
f 
f 
E 
E 
E 
t 
t 
t 
t 
E 
t 
E 
t 
t 
E 
E 
E 
E 
E 
E 
E 
f 
t 
t 
t 
t 
t 
t 
t 
{ 
{ 
{ 
t 
t 
t 
{ 





OUTERR 


DZRLFA. 


MACY11 


Pil 


027562 
027566 
027572 
027576 
027602 
027610 
027610 
027614 
027620 
027622 
027626 
027630 
027634 
027642 
027644 
027650 
027652 
027660 
027662 
027664 
027672 


027674 
027700 
027702 
027704 
027710 
027712 
027714 
027720 
027722 
027724 
027730 
027732 
027734 
027736 
027742 


027744 
027746 
027750 
027754 
027756 
027760 
027762 


027764 


030012 


30(1046) 
23-NOV-77 


112537 
112537 
005037 
005037 
013737 


004537 
005737 
001003 
005237 
000402 
005037 
022727 
001003 
005237 
000205 
023737 
001001 
000205 
063737 
000746 


005037 
010146 
010246 
012701 
005711 
100421 
023721 
001011 
105724 
123711 
001402 
105744 
000403 
005237 
000405 


005721 
005202 
020227 
001355 
012601 
012602 
000205 


013701 
005737 
100402 
162701 
012702 
116120 
005201 
005302 


O06-DEC-77 18: 
13: 47 


002740 


002740 


027674 
002112 


002750 


002750 
002750 


002746 
002742 


002734 


002112 


003030 


002744 


002112 


000374 


002742 
002734 


000004 
000005 


002742 


000005 


002736 


ON2742 


18 


18: 


23: CLR 
35: CMP 


4S: CMP 


5S: ADD 


N 4 


PAGE 86 
GLOBAL SUBROUTINES SECTION 


(R5)+, FRITRK 
(R5)+,LSTTRK 
TRKF ND 

TRKCNT 
FRTTRK, PRSTRK 
RS, FNDBSC 
HDRF ND 

2$ 

TRKCNT 

3$ 

TRKCNT 
TRKCNT, #5 

4$ 

TRKFND 

RS 
PRSTRK,LSTTRK 
5S 


RS 
OFFSET. PRSTRK 
1$ 


+BEGINNING TRACK 
+ENDING TRACK 

*+CLEAR OUT FLAG FOUND 
+CLEAR OUT TRACK COUNT 
GET FIRST TRACK 


71S TRACK IN BAD SECTOR FILE 
;WAS IT? 

+ YES. CLEAR TRKCNT 

+NO, INDICATE GOOD TRACK 


U 
+ START COUNT OVER 
*FIND & TRACKS YET? 
+NO, CONTINUE 
+ YES, EXIT WITH GOOD FLAG 


- EXIT 

+ ARE WE DONE? 

;NO, KEEP LOOKING 
;EXIT WITH NOT FOUND 
;NEXT TRACK 


ROUTINE TO FIND BAD TRACK IN FILE 


FNDBSC: CLR 
MoV 
MoV 
MoV 


4S: INC 


3$: TST 


2s: MoV 


FIXCYL: MOV 


18: MOV 
23: MOVB 


HORF ND 
R1,-(SP) 
R2,-(SP) 
#BUF+10.R1 
(R1) 


2$ 
PRSTRK, (R1)+ 
3$ 


(R4)+ 
SURFACE, (R1) 
4g 

-(R4) 

+) 


1$ 
(SP)+.R1 
(SP)+,R2 
R5 


PRSTRK,-R1 
OFFSET 


> INITIALIZE FLAG 
SAVE Ri, R2 


;SETUP FOR BEGINNING OF FILE 
, END? 


; 1F MINUS AT END, EXIT 
> CYLINDER CORRECT? 
;NO, NEXT 

; UPPER HALF OF WORD 

> CORRECT SURFACT 


7 SET FOUND 


;NEXT WORD 

>;ACCOUNT FOR IT 

+ DONE? 

;NO. KEEP CHECKING 
;RESTORE R2, R1. EXIT 


*GET TRACK WHICH IS GOOD 
*WHICH WAY WERE WE LOOKING 
> IN WORD. BRANCH 

*+BACK IT UP BY FOUR 

GOING STORE AWAY 5 TRACKS 
>STORE THEM 


SEQ 0052 





OAOMAAMAMAAAMAAOAAMAMAAAAAAAAAAMAHAHBAMHAM HMMM HM HMMM HMMM 945TH CO 


OUTERR 


OZRLFA. 


4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 


MACY 11 


Pil 


030014 
030016 


030020 
030026 
030032 
030034 
030040 
030042 
030046 
030052 
030056 


30(1046) 
23-NOV-77 


001374 
000205 


012737 
004537 
000004 
004537 
000010 
013700 
042700 
020027 
001425 
042700 
012701 
160001 
010137 
052737 
004537 
000006 
004537 
000010 
013700 
022700 
003346 
012737 
012737 
012737 
004537 
000014 
005737 
001410 
062737 
022737 
001355 
000445 
012701 
005737 
100095 


06-DEC-77 
13: 47 


000013 
030550 


030550 


002760 
000077 
077700 


000100 
077600 


002772 
000025 
030550 


030550 


002760 
077700 


077700 
003020 
177400 
030550 


002664 
000004 
077724 


003020 
002776 


002772 
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GLOBAL SUBROUTINES SECTION 


BNE 

RTS 
;ROUTINE TO GET 
+> CALL 
SERNUNM: 


002772 
002770 
002774 


002772 
062772 


2$ 
RS 


SERIAL NUMBER 


R5, SERNUM 


#13,BDA 
R5, LOFUNC 


RS, LOFUNC 


RO. # #77700 
2$ 


#100,R0 
#77600, R1 
RO, R1 
R1,BDA 
#25, BDA 
R5, LDFUNC 


RS, LOFUNC 


E.MP,.RO 
#77700, RO 
$ 


1 

#77700, BDA 
#BUF, BBA 
#-256. . BMP 
R5, LOFUNC 


ERFLG 

985 

#4,BDA 
#77724, BDA 
975 


GET STATUS 
+READ HEADER 


+GET THE HEADER 

;CLEAR SECTOR BITS 

+ON LAST TRACK 

+ 1F SO, DON'T SEEK 

+ CLEAR HEAD 
;LAST CYLINDER 
+CALCULATE DIF OF SEEK 
;SET UP DIF WORD 

;SEEK IN, HEAD 1 

+ SEEK 


+ VERIFY POSITION 


GET HEADER 

COMPARE AGAINST LAST 

+ 1F WRONG, RE-SEEK 

+BAD SECTOR DA START 
+READ !N BAD SECTOR FILE 


; READ 


+ TEST ERROR FLAG 

+ YES, COMPARE SERIAL NUMBERS 

+NO, SETUP FOR NEXT FACTORY BAD SECTOR 
+END OF FACTORY BAD FILE? 

+GET NEXT FACTORY BAD SECTOR 

*REPORT ERROR 

COMPARE SERIAL NUMBERS 

+HAVE WE GOT ONE TO COMPARE 

+ YES. BRANCH 


SEQ 0053 


(R1), SERNM1 
2(R1), SERNMZ 


002776 (R1), SERNM1 
001004 4% NO, PRINT ERROR 
026137 9000002 903000 2(R1), SERNMZ — HALF OKAY 


001436 E 5% YES. EXIT 
: #FRMS,2(R1), (RL), SERNM2, SERNM1 
013746 002776 


SERNM1, - (SP) 
013746 003000 SERNNZ, - (SP) 
011146 (R1),-(SP) 
016146 000002 2(R1),-(SP) 
012746 020702 #FRM3, -(SP) 
012746 000005 


#5, - (SP) 


011137 
016137 
021137 


002776 *NO, CALL THIS ONE IT 
000002 ; 


003000 ; 
+SERNUM OKAY 


030252 
030256 
030262 
030264 
030270 
030274 





OUTERR 
DZRLFA 


(3) 
(4) 
(4) 
4379 
4380 
4381 
4382 
(7) 
(6) 
(3) 
(4) 
(y) 


MACY11 3061046) 


Put 


030300 
030302 
030304 
030310 
030314 
030320 
030322 
030322 
030326 
030332 
030334 
030336 
030342 
030342 
030244 
030346 


06-DEC-77 


23-NOV-77 13:47 


010600 
104017 
062706 
004537 
004537 
000637 


012746 
012746 
010600 
104017 
062706 


104022 
000776 
000205 


000014 
030350 
030450 


021552 
000001 


000004 


18:18 PAGE 86-2 
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995: 


9995: 


5S: 


. = 


+LET OPERATOR CHANGE 
; PACK 


60 ¢ 


ae 1T AGAIN. 


; MESSAGE 


SEQ 0054 


| 
| 






OUTERR 









































4329 
4390 
4391 
4392 
43923 
(9) 
(8) 
(8) 
(7) 
(6) 
(3) 
(uy) 
(4) 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
(3) 
(3) 
4401 
4402 
4403 
44O4 
4405 
4406 
4407 
4408 
4409 
4410 
(9) 
(8) 
($8) 
(7) 
(6) 
(3) 
(4) 
(4) 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
(3) 
(3) 
4418 
4419 
4420 


OZPLFA. 


MACY11 30(1046) 
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030350 
030350 
030354 
030356 
030362 


030446 


030450 
030450 
030454 
030456 
030462 
030466 
030472 
030474 
030476 
030502 
030506 
030512 
030516 
030522 
030530 
030532 
030532 
030536 
030540 
030542 
030544 





06-DEC-77 


23-NOV-77 13:47 


016446 
005046 
156416 
012746 
012746 
010600 
104017 
062706 
012701 
012700 
056400 
010074 
032774 
001406 


012700 
104926 


016446 
005046 
156416 
012746 
012746 
010600 
104017 
062706 
012701 
012700 
056490 
010074 
032774 
001006 


012700 
104026 
005301 
001367 
000741 


o0o0co00 


000005 
020510 
000003 


000010 
000074 
000200 
000004 
000000 
000001 


000012 


000000 


000005 
020605 
000003 


000010 
000170 
000200 
000004 
000000 
000001 


000012 


Nt0000 


900000 


18:18 PAGE 
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+ROUTINE UNLOAD 


> CALL 
UNLOAD: 


t 
1s 


7% 


-- 


JSR 
PRINTF 
MOV 


POUTINE LOAD 


» CALL 
LOAD 


2s 


JSR 


PRINTF 
MOV 


R5, UNLOAD 


#FRM1, <B, DSB4+1(R4)>, CSRIRY) 


— 


- (SP) 
DSB+1(R4), (SP) 
#FRM1, -(SP) 
#3, - (SP) 

SP, RO 

CSPNTF 

#10, SP 

#60.,R1 

#200, RO 
DSB(R4Y), RO 

RO, ACSR(RY) 
RORDY. ACSRIRY) 


PS. LOAD 


SETUP 66 SECOND TIMER 


; CHECK DRDY FOR ZERO 
; PACK UNLOADED 
»WAIT 1 SECOND 


HAS 60 SEC PASSED? 

NO, RETEST DROY. CONTINUE WAIT 

: YES. REPEAT MESSAGE CONTINUE WAIT 
>RPETURN WITH PACK UNLOADED 


@FRMNZ. <B. OSB41¢R4)>. CSPI PU 


CSRERY), - (SP) 
- (SP) 
OSB+1(R4), (SP) 
@FRMZ,-(SP) 
83,-(SP) 
SP.RO 

CSPNTF 

#10. SP 

#120. .R1 
#2C0.R0 
OSB(R4Y) RO 
RO. ACSPi PY) 


BOPDY. aCSPIPY: 


SETUP 120 SEC TIMEP 
“SETUP CONTPOLLE® PEADY BIT 
SELECT OP IVE 





SEQ 0055 
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OZRLFA. P11 23-NOV-77 13:47 GLOBAL SUBROUTINES SECTION SEQ 0056 
wet 030546 000205 3S: RTS RS 
4424 ;ROUTINE LOFUNC | 
at /CALL =sSR R5. LDF UNC 
< 
4427 030550 010046 LOFUNC: MOV RO, -(SP) | 
4428 030552 010346 MOV R3.-(SP) | 
4429 030554 010146 MOV Ri, -(SP) | 
4430 030556 005037 002664 CLR ERFLG CLEAR ERROR FLAG 
4431 030562 016403 o000000 MOV CSR(R4),R3 GET CSR | 
4432 030566 013763 002774 9000006 MOV BMP, MP(R3) LOAD MULTIPURPOSE 
4433 030574 013763 002772 O00004 MOV BOA, DACR3) +LOAD DISK ADDRESS 
4434 030602 012763 002770 000002 MOV BBA, BACR3) *LOAD BUS ADDRESS 
4435 030610 011537 002766 MOV (R5),BCS GET FUNCTION TO LOAD | 
4436 030614 056437 000004 002766 Bis DSB(R4), BCS ;SELECT BITS 
4437 030622 012701 000031 MoV #25. ,R1 +SET WATCHDOG TO 250MS 
4438 030626 052737 000200 002766 BIS #200, BCS 
4439 030634 013763 002766 000000 MOV BCS, CS(R3) LOAD FUNCTION 
4440 030642 016337 O00000 9002766 MOV CS(R3),BCS 
4441 030650 042763 000200 000000 BIC #200, CS(R3) 
4442 030656 032763 000200 900000 15%: BIT #200, CS(R3) >CNTLR READY? 
4443 030664 001034 BNE 2$ >YES. GO 
4444 030666 WAITUS #100. ;WAIT 10 MILLISECONDS 
(3) 030666 012700 000144 MoV #190. ,R0 
(3) 030672 104027 EMT CSWTU 
4445 030674 005301 DEC R1 
4446 030676 001367 BNE 1$ 
4447 
4448 030700 016337 000000 902752 MOV CSCR3),E.CS *>REQD ALL REGISTERS 
4449 030706 016337 000002 002754 MoV BACR3).£. BA 
4450 030714 016337 000004 002756 MOV DA(R3),E. DA 
4451 030722 016337 000006 9002760 MOV MPCR3),E MP 
4452 030730 016337 000006 902762 MOV MP(R3)-E. MP1 
4453 030736 016337 000006 902764 MOV MP(R3),E. MP2 
4454 030744 ERROF 210.,CNTTOT.ERRS:CNTLR TIMEOUT 
(3) 030744 104462 TRAP TSERCODE 
(5) 030746 000322 .WORD 210 
(5) 030750 017062 .WORD = CNTTOT 
(5) 030752 020362 -WORD = ERRS 
4455 030754 000425 BR 4$ 
4456 
4457 030756 016337 000000 002752 2%: MOV CS(R3),E.CS 7;READ ALL PEGISTERS 
4458 030764 016337 000002 902754 MoV BA(R3),E. BA 
4459 030772 016337 000004 002756 MOV DA(R3),E. DA 
4460 031000 016337 000006 002760 MOV MP(R3),E. MP 
4461 031006 016337 000006 902762 MOV MP(R3),E. MP1 
4462 031014 016337 CO0006 902764 MoV MP(R3)-E. MP2 
4463 
4464 031022 005737 002752 TST £.¢s ANY ERRORS? 
4465 031026 100002 BPL 3$ *YES. GO SERVICE 
4466 031030 005237 002664 4S. INC ERFLG 
4467 031034 005725 3S: TST (R5)+ 
4468 031036 012601 MOV (SP)+,R1 
4469 031040 012603 MOV (SP)+,R3 
4470 031042 012600 MoV (SP)+,R0 


4471 031044 000205 RTS RS 





FS - a 
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DZRLFA. Pil 23-NOV-77 13:47 GLOBAL SUBROUTINES SECTION SEQ 0057 
4472 
4473 
4474 
4475 031046 ENDMOD 
4476 
44727 
4478 
4479 
4480 
4481 031046 BGNTST 
4¥4S2 
Y483 
yusy ; CONTROL SECTION COMPATABILITY PROGRAM 
yuss ;PRINT UNLOAD AND LOAD DRIVE MESSAGES 
44 Se ;PERFORM SERIAL CHECK ROUTINE 
us? ;PERFORM READ/WRITE CHECKS ON DRIVES 
° 
4489 031046 012701 002236 COMPAT: MOV #SECBUF.R1 ;ADJ. CYLINDER BUFFER 
4490 031052 012700 000170 MoV #120. ,RO ;ADJ. CYLINDER BUFFER COUNT 
4491 031056 005021 us: CLR (R1)+ ;CLEAR ADJ. CYL. BUFFER AT STARTUP 
4492 031060 005300 DEC RO ;BUFFER CLEARED? 
4493 031062 001375 BNE us ; CLEAR NEXT BUFFER WORD 
4494 031064 005237 002652 INC FOWR ;SET FIRST OVERWRITE FLAG 
4495 031070 004537 023324 JSR RS. OVWPER ;PERFORM OVERWRITE ON FIRST DRIVE 
4496 031074 177400 177400 
4497 031076 000377 377 
4498 031100 005037 002652 CLR FOWR /CLEAR FIRST OVERWRITE 
4499 031104 005237 002654 INC FADJ ;SET FIRST ADJ. FLAG 
4500 031110 005237 002674 INC ADJDIR ;UP = 1 
4501 031114 004537 024006 JSR RS, ADJCYL 
4502 031120 00 377 BYTE 3,377 ; TRACK AND SECTORS FOR 
4503 031122 170000 “WORD 170000 ; INWARD SEEK 
4504 031124 003 000 BYTE 3.0 ; TRACK AND SECTORS FOR 
4505 031126 007777 -WORD 7777 ;QUTWARD SEEK 
4506 031130 000000 WORD 0. ; TERMINATOR 
4507 031132 004537 930350 JSR R5, UNLOAD ; UNLOAD PACK FROM DRIVE UNIT 
4508 031136 062704 000010 ADD #PAT+2, RY ; UPDATE POINTER FOR NEXT DRIVE 
4509 031142 004537 030450 JSR RS. LOAD ;LOAD INTO SECOND DRIVE UNIT 
4510 031146 004537 030020 JSR RS, SERNUM ; CHECK PACK SERIAL NUMBER 
4511 031152 004537 023324 JSR RS, OVWPER :PERFORM R/W OVERHRITE 
4512 031156 000360 360 
4513 031160 000017 17 
4514 031162 005237 002674 INC ADJDIP 
y515 031166 004537 024006 JSR RS, ADJCYL 
W516 031172 002 360 BYTE 2,360 / IN 1/0 OUTSIDE 
4517 031174 000000 WORD 0 
4518 031176 002 017 -BYTE 2,17 :QUT 1/9 OUTSIDE 
4519 031200 000000 -WwORD 0 
4520 031202 004 360 “BYTE 4, 360 > IN 170 INSIDE 
4521 031204 000000 -word 0 
4522 031206 004 017 -BYTE 4,17 ;QUT 1/0 INSIDE 
4523 031210 000000 WORD 0 
4524 031212 000000 “WORD 0 
4525 031214 004537 030350 JSR RS. UNLOAD ;UNLOAD PACK FROM DRIVE UNIT 
4526 031220 023727 00271e 900002 CMP UUT, #2 ; CHECK FOR > 2 DRIVES 
W527 031226 BNE 108 :YES,GO TO NEXT ORIWE 


001002 
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4528 
4529 
4530 
4S31 
4532 
4533 
4S 2y 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
454s 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
457 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4582 
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031230 
031234 
031240 
031244 
031250 
031254 
031256 
031260 
031264 
031270 
031272 
031274 
031276 
031300 
031302 
031304 
031306 
031310 
031312 
031314 
031316 
031320 
031322 
031324 
031326 
031330 
031332 
031336 
031344 
031346 
031352 
031356 
031362 
031366 
031370 
031372 
031376 
031402 
031404 
031406 
031410 
031412 
031414 
031416 
031420 
031422 
031424 
031426 
031430 
031432 
031434 
031436 
031440 
031442 
O31444 
031446 
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000137 
062704 


031644 
000010 
030450 
030020 
023324 


002674 
024006 
000 
000 
000 
coo 
200 
100 
200 
100 
030350 
002716 
0u0010 
030450 


030020 
023324 


002674 
024006 
000 
000 
000 
000 
040 
020 
040 
020 
000 
000 
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10S: 


NO0003 


2$ 
#PAT+2,R4 
RS, LOAD 
RS, SERNUM 
RS. OVWPER 


ADJDIR 
R5, ADJCYL 


RS, UNLOAD 
UUT, #3 

1$ 
#PAT+2,R4 
R5,L OAD 
R5, SERNUM 
RS, OVWPEP 


ADJOIR 
RS, ADICYL 
2-0 


—-OWono-o--— 
= 
Oo 


ee 
oO 
ooo 
Oo 
oO 
=) 


G 5 


GO TO FIRST DRIVE 

; UPDATE DRIVE BUFFER FOR THIRD DRIVE 
LOAD PACK FOR THIRD DRIVE 

+ CHECK SERIAL NUMBERS 

;PERFORM R/W OVERWRITE ON THIRD DRIVE 


IN 270 OUTSIDE 

OUT 270 OUTSIDE 

+ IN 270 INSIDE 

OUT 270 INSIDE 

7 IN 271 OUTSIDE 

OUT 271 OUTSIDE 

> IN 271 INSIDE 

;QUT 271 INSIDE 

: TERMINATOR 

UNLOAD PACK ON THIRD ORIVE 
CHECK FOR > 3 DRIVES 

*;NO- GO TO 2ND DRIVE 

> UPDATE DRIVE BUFFER FOR 4TH DRIVE 
;LOAD PACK ON 4TH DRIVE 


> CHECK PACK ON FOURTH DRIVE 
PERFORM R/W OVERWPRITE 


> IN 3/0 OUTSIDE 
/QUT 30 OUTSIDE 
> IN 3/0 INSIDE 
3/0 INSIDE 
7 IN 371 OUTSIDE 
-OUT 3/1 OUTSIDE 
7 IN 3/1 INSIDE 
/QUT 3/1 INSIDE 
»IN 3/2 OUTSIDE 
/QUT 3.2 OUTSIDE 


» OUT 


SEQ 0058 | 


eS 


H 5 





OUTERR MACY11 30(1046) O6-DEC-77 18:18 PAGE 88-3 
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4584 031450 040000 .WORD 40000 
4585 031452 005 000 .BYTE 5,0 + IN 372 INSIDE 
4586 031454 100000 .WORD 100000 
4587 031456 005 000 .BYTE 5.0 OUT 372 INSIDE 
4588 031460 040000 .WORD 40000 
4589 031462 000000 .WORD OQ + TERMINATOR 
4590 031464 004537 030350 JSR RS, UNLOAD ;UNLOAD PACK FROM 4TH DRIVE 
4591 031470 162704 000010 SUB #PAT+2, R4 ;SET DRIVE BUFFER FOR 3RD DRIVE 
4592 031474 004537 030450 JSR RS, LOAD +LOAD PACK ON 3RD DRIVE 
4593 031500 004537 030020 JSR RS. SERNUM CHECK FOR PACK SERIAL NUMBER 
4594 031504 004537 023324 JSR RS, OVWPER PERFORM R/W OVERWRITE ON 3RD DRIVE 
4595 031510 020000 20000 
4596 031512 01C000 10000 
4597 031514 004537 024006 JSR RS, ADJCYL 
4598 031520 001 000 BYTE -0 + IN 273 OUTSIDE 
4599 031522 000200 .WORD 200 
4600 031524 001 000 BYTE 1,0 OUT 273 OUTSIDE 
4601 031526 000100 .WORD 100 
4602 031530 005 coo .BYTE 5-0 + IN 273 INSIDE 
4603 031532 000200 -WORD 200 
4604 031534 000 .BYTE 50 OUT 273 INSIDE 
4605 031536 000100 .WORD 100 
4606 031540 000000 .WORD OQ ; TERMINATOR 
4607 031542 004537 030350 JSR R5. UNLOAD ; UNLOAD PACK FROM 3RD DRIVE 
4608 031546 162704 900010 18: SUB #PAT+2,R4 >SET DRIVE BUFFER FOR 2ND DRIVE 
4609 031552 004537 030450 JSR R5,LOAD >LOAD PACK ON THIRD DRIVE 
4610 031556 004537 030920 JSR R5, SERNUN CHECK PACK SERIAL NUMBER 
4611 031562 004537 023324 JSR RS, OVWPER >PERFORM R/W OVERWRITE ON 2ND DPIVE 
4612 031566 004040 4040 
4613 031570 002020 2020 
W614 031572 004537 024006 JSR R5,ADJCYL 
4615 031576 061 000 BYTE 1,0 7 IN 1/2 OUTSIDE 
4616 031600 020000 WORD 20000 
4617 031602 001 000 BYTE 1,0 QUT 172 SUTSIDE 
4618 031604 010000 WORD 10000 
4619 031606 005 000 BYTE 5.0 > IN 1/2 INSIDE 
4620 031610 020000 WORD 20000 
4621 O31612 005 006 BYTE 5,0 -QUT 172 INSIDE 
4622 O3161% 010000 WORD 10000 
4622 O31616 001 000 BYTE 1,0 > IN 1/3 OUTSIDE 
4624 031620 000040 WORD 490 
4625 031622 001 ooo BYTE 1.C >QUT 1/3 OUTSIDE 
4626 031624 00002 .WORD 20 
4627 031626 00s 000 BYTE 5.0 IN 173 INSIDE 
4628 031630 000040 WORD 40 
4629 031632 00s 000 .BYTE 5-0 >QUT 173 INSIDE 
4630 031634 000020 -WORD = =20 
4631 031636 000000 -WORD 0 > TERMINATOR 
4632 031640 004537 030350 JSR RS, UNLOAD UNLOAD PACK FROM 2ND DRIVE 
4633 031644 162704 000010 <$ SUB #PAT+2,R4 +SET DRIVE BUFFER FOR 1ST DPIVE 
4634 031650 004537 930450 JSR R5,LOAD *LOAD PACK INTO FIRST DRIVE UNIT 
4635 031654 004537 030020 JSR RS, SERNUM CHECK SERIAL NUMBER 
463@ 031660 004537 023324 JSR RS, OVWPER /PERFORM R/W OVERWRITE 
4637 031664 021040 21040 
4638 031666 010420 10420 
4639 031670 004537 O2400e JSR RS, ADICYL 


QUTERP 


OZ2RLFA 


4o40 
4641 
4642 
4643 
4O4Y4 
4Yo4uS 
YoYo 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4¥oS4 
4oS5 
4o5o6 
4657 
4658 
4659 
4660 
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031674 
031676 
031700 
031702 
031704 
031706 
031710 
031712 
031714 
031716 
031720 
031722 
031724 
031726 
031730 
031732 
Q31734 
031736 
031740 
031742 
031744 
031746 
031750 
031752 
031754 
031756 
031762 
031762 
031766 
n?*772 
US1774 
031776 
032002 
032002 
032004 


032006 
032006 
032006 


032010 


032010 
032010 


032012 
032012 
032014 
032016 
032020 
032020 
032022 
032024 
032026 
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900000 
004537 


012746 
012746 
010600 
104017 
062706 


104022 
000776 


104001 


000025 


004130 
032064 
000001 


000031 
032071 
160000 
177776 


010 
004 
010 
004 
000 
000 
000 
000 
000 
coo 
000 
000 


000004 
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GLOBAL SUBROUTINES SECTION 


ENDTST 


L10012: 


BGNMOD 


.BYTE 1,10 + IN 071 OUTSIDE 
.WORD QO 

.BYTE 1,4 OUT 071 OUTSIDE 
.WORD QO 

BYTE 5.10 > IN O71 INSIDE 
.WORD QO 

BYTE 5,4 ;OUT O71 INSIDE 
WORD O 

.BYTE 1,0 + IN 072 OUTSIDE 
WORD 4000 

BYTE 1,0 ;OQUT 0/2 OUTSIDE 
WORD 2000 

BYTE 5, > IN O72 INSIDE 
.WORD 4000 

.BYTE 5,0 OUT 072 INSIDE 
WORD 2000 

BYTE 1 > IN 073 OUTSIDE 
WORD 10 

BYTE 1,0 OUT 073 OUTSIDE 
WORD 4 

BYTE 5.0 > IN O73 INSIDE 
-WORD 10 

.BYTE 5,0 OUT O73 INSIDE 
.WORD 4 

-WORD 0 > TERMINATOR 

JSR R5. UNLOAD ; UNLOAD PACK 
PRINTF #ENDPAS END OF PASS 
MoV RENDPAS. - (SP) 

MOV #1,-(SP) 

MoV SP, RO 

EMT CSPNTF 

ACC #4, SP 

BREAK 

ENT CSBRr 
BR 3$ 
ENT CSETST 
HROPRM 

BGNHRO 


WORD L10013-LSHARD.’2 


GPRML RLMSG,RLCNT.1. YES 
-WORD TSCODE 
.WORD = RLMSG 


1 

CSRMSG. CSR. 0. 160000, 177776. VES 
WORD TSCODE 

WORD CSRMSG 

WORD TSLOLIM 

WORD TSHILIM 


SEQ 0060 


-_—— ee 


| 


OUTERR 
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4680 
(4) 
(4) 
(4) 
(4) 

4e8l 
(4) 
(4) 
(4) 
(4) 
(4) 

4eS2 
Cy) 
i. 
ty) 
(yi 
(4) 

4o82 

4684 
(2) 
(3) 

4685 

4686 

4687 


4688 
4689 
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032030 


032062 
032064 
032064 


032064 
0232071 
032076 
032104 
032105 
032112 
032116 
032124 
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001031 
032116 
000000 
000776 


002032 
032105 
000340 
000000 
000007 


002032 
032125 
003400 
000000 
000007 


030461 


052103 


000 
040440 
051523 
N42514 


OS11iF 
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GLOBAL SUBROUTINES SECTION 


L10013: 


RLMSG: .AS 
CSRMSG: . AS 


Hogs 
NN 


BRNSGS: .ASCIZ 
WECMSG .ASCI2 


VECMSG, VECT, 0.0, 776, YES 
TSCODE 


VECHSG 

TSLOL IM 

TSHILIM 

BRMSG, PRIOR. 0, 340, 0, 7, YES 
TSCODE 


DRNSG. DRBT. 0, 03400. 0, 7, YES 
TSCODE 

DRNSG 

03400 

TSLOLIM 

TSHILIM 


/RLAI 
“BUS ADDRESS 


/BR LEVEL? 
/WECTOR, 


SEQ 0061 


K 5 POPS eee oc 
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4631 032125 104 044522 042526 DRMSG: .ASCIZ /DRIVE/ 
032132 000 
4692 032134 . EVEN 
4693 
4694 O22134 ENDMOD 
4695 
4696 
4697 032134 LASTAD 


mr 


POP-11 DIAGNOSTIC SUPERVISOR 
DZRLFAR. SUP 11-OCT-77 15:41 


4700 
15996 
15998 
15999 
16001 
16002 


063034 
071776 
071776 000000 
072000 
000200 


L 5 
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_ TITLE POP-11 DIAGNOSTIC SUPERVISOR 
END. SUPV=. +2 

. 271776 

.WORD OQ 

X1X1s. 

. END 200 


ae Led a 


SEQ 0063 


OUTERR 
OZRLFA 


ABOFLA 
ABOPAS 
ABO. FM 
ADJCYL 
ADJDIR 
ADJFLG 
ADJLC2 
ADJLCS 
ADJLCY 
AD JLOC 
ADITRK 
AD JTXT 
AD JUUT 


Les) 

~ 

— 

So 
nnnnhnnhrnnnnnnhnhnnhnnnhnnnhununun 
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032406 G 
032320 G 


. SUP 


035262 
024006 


000200 
000400 


06-DEC-77 
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001000 G 
52 


032334 
044670 
044702 
045520 


ao Oooo oo 


CSTPRI= 


045630 


000013 


oan 


a 


“wot 


OOOOMOMOOMOOOOMOOOOOOOOMOM 


SEQ 0064 
032412 G 


oO 

NS 

So 

So 

£ 

£- 
AOooon Mm 


ooo 
Who 
NNO 
Pt 
oe 
ao oo 


045504 
017746 


021361 
021440 
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DZRLFA. SUP 11-OCT-77 15: 41 SYMBOL TABLE SEQ 0065 


FRMI4 021523 GSOFFS= 000400 ISCLN = 000041 LSINIT 022042 G MOOR 062000 G 
FRMIS 021552 GSOFSI= 000376 1$0U_ = 000041 LSLADP 002076 G MP = 000006 
FRM16 021611 GSPRMA= 000001 ISHRD = 000041 LSLAST 032134 G MUL 061734 G 
FRM17 «021676 GSPRMD= 000002 ISINIT= 000041 LSMREV 002012 G NEWPR! 061460 G 
FRM18 4 =©021732 GSPRML= 000000 I$MOD = 000041 LSNAME 002000 G NEXTAR 055570 
FRNZ 020605 GSRADA= 000140 ISMSG = 000041 LSREPP 002054 G NONE 017300 
FRN3 020702 GSRADB= 000000 ISPWR = 000041 LSREV 002010 G NO. CLK 034472 
FRMY 020761 GSRADD= 000040 ISRPT = 000041 L$SPC 002030 G NO. FLA 055364 
FRMS 021022 GSRADF= 000200 ISSEG = 000041 L$SPCP 002050 G NO. LPT 052702 
FRM6 021071 GSRADL= 000120 ISSRV = 000041 LSSPTP 002060 G NO.PTA 037162 
FRM? 021112 GSRADO= 000020 i$SUB = 000041 L$STA 002066 G = 000000 
FRNS 021152 GSRADT= 000100 ISTST = 000041 LSTIML 002022 G NUMBIN 046026 
FRM9 021216 GSXFER= 000004 JSJMP = 000167 LSTIMU 002020 G NUM. LA 046174 
FRTTRK 002740 GSYES = 000010 KBPTR 32166 G L$TIM1 002016 G NUM. UN 032532 
FUNERR 017556 HCORED 037114 KBUF 032170 G L$TST! 002074 G NUNITS 041442 
FWD 017625 HCOREQ 036774 LOFUNC 030550 LSUNIT 002014 G NXM = 020000 
FSAU = 000015 HCORET 032346 G LINE.F 032410 G L.CLK. 036720 NXTFOR 055640 
FSBGN = 000040 HCRC = 004000 LOAD 030450 L10000 020002 OCTMSG 051370 
FSCLEA= 000007 HORFND 002112 LOAD.F 037352 L10001 020042 OFFSET 002734 
FSOU = 000016 HEAD = 000100 LOGMSG 051404 L10002 020174 OP! = 002000 
FSEND = 000041 HEADO! 002704 LPBFR 032164 G L10003 020360 0Qu10 002126 
FSHARD= 000004 HERTZ. 036734 LPCNTR 032162 G L10004 020420 0QU11 002133 
FSH = 000013 HNF = 010000 LPT.AD 036752 L10005 020506 0QU20 002127 
FSINIT= 000006 HOLDSP= 000020 LPT.RE 036746 L10006 022036 0QU21 002134 
FSJMP = 000050 HPTCOD 022022 G LS!1.RE 036742 L10007 023312 0QU30 002130 
FSMOD = 000000 HROPRM 032010 G LSTCLR 002660 L10010 023316 0QU31 002135 
FSMSG = 000011 HSFLG 002700 LSTORV 002722 L10011 023322 OQuU4O 86002131 
FSPWR = 000017 HSARB 8056174 LSTTRK 002736 L10012 032006 0QU41 002136 
FSRPT = 000012 INAWR 027652 LUP 057474 L10013 032064 0QuSO)§=—«.:0}02132 
FSSEG = 000003 ININIT 032336 G LUP.AD 044720 MAJ. IN G32140 G 0QU51 002137 
FSSOFT= 000005 INITCO 022042 G L$AUT 002070 G MAJ.LO 057574 OSECT 002702 
FSSRV = 000010 INITIA 051412 LSCCP 002044 G MAJ.US 032142 G OUT1O 002114 
FS$SUB = 000002 INITWR 017102 LSCLEA 023314 G MANY 017241 OUT11 002121 
FSSH = 000014 INIT. M 037754 LSDEPO 002011 G MAN. Ti 034442 OUT2Z0 002115 
FSTEST= 000001 INIT.R 032150 G LSOEVP 002052 G MAP16 8©062436 G OUT21 002122 
GARBAG 052736 INN1O) =. 002164 LSOISP 022040 G MASK.B 041466 OUT3O0 002116 
GDATA 002724 INN11 = =©.002171 LOR 002102 G MASK.W 041464 OUT31 002123 
GETCHR 051442 INN20 002165 LSORCT 002062 G MDHEDR 002000 G OUT4O 002117 
GETCMN 055026 INN21 002172 LSORS 002064 G MEN. S! 036762 OUT41 002124 
GETPAR 046520 INN3O 002166 LSORST 002102 G MERGE 027364 OUTS5O 002120 
GETSH! 054022 INN31) =©6.002173 LSOTP 002040 G M1iD10 = 002140 OUT51 002125 
GET. TW 053572 INNYQ 002167 L$DU 023320 G MiD11 = 002145 OVMES 017351 
GLBDAT 002112 G INNY? = =.Q002174 L$OUT 002072 G M1020 §=002141 OVWER 17512 
GLBEQA 002112 G 'NN5SO 8 002170 L$DVTY 002104 G MID21 002146 OVWPER 023324 
GLBERR 017746 G INNS? 002175 LSEF 002024 G MID30 =©002142 OVWTRK 002616 
GLBSUB 023324 G INPUTA 052340 LSEXP1 002032 G MID31 002147 OSAPTS= 000000 
GLBTXT 017062 G INTEN = 000100 LSEXP2 002034 G MID4O =002143 OsAU = 000000 
GSBIT = 000003 INTFOR 045636 LSEXP3 002036 G MID41 002150 OSBGNR= 000000 
GSTAT = O00004 INVAL. 037062 LSHARD 032012 G MIDSO) §=—©.002144 OSBGNS= 000000 
GSEXCP= 000400 INVINT 045530 LSHPCP O02046 G MIDS! 002151 O$DU = 000000 
G$HIL!= 000002 INV SW 033356 LSHPTP 002056 G MIN. IN) 032134 G OSGNSW= 000000 
GSLOL!= 000001 IN. SUF 040724 LSHW 022024 G MIN. US 032136 G OSPOIN= 000001 
G$nC = 000000 i$AU == 000041 L$ICP 002042 G MK = 900001 OSPWR = 000000 


ee DS SSS SD 


B 6 
OUTERR MACY11 are oe O6-DEC-77 18:18 PAGE 91-2 
DZRLFA. SUP 11-OCT-77 15: 41 SYMBOL TABLE SEQ 0066 
PAk-<S 055100 RLCNT = 000010 SUP.PR 033346 TYPLIN 051626 VAL.LA 033332 
PAR.LA 051072 RLMSG 032064 SURFAC 002744 TYPNUM 051214 VAL. SH 037370 
PAT = 000006 RSADJS 025404 SVCCNT= 177777 TYPSTR 051646 VEC = 000002 
PATLST 002642 RSTACK 061662 G SVCGBL= 177777 TYP.ER O4551C VECMSG 032116 
PRINTC 052712 RSX. FL 037346 SVCHAN 041646 TY. UNI 9 O40744 VECT = 000002 
PRINTF 056214 SEARCH 053540 SVCINS= 000000 TSARGC= 000001 VEROD 026176 
PRIOR = 000004 SECBUF 002236 SVCSTK= 177777 TSCODE= 003032 VEROW 025612 
PRIOO = O00000 G SECLST 002176 SVCSUB= 177777 TSERCO= 000062 WCOUNT 002730 
PRIO1 = OOOO40 G SECT 002720 SVCTAG= 000000 TSERRN= 000322 WIDTH 046374 
PRIOZ = 000100 G SECWRD 002732 SVCTST= 177777 TSEXCP= 000000 WRITE = 000012 
PRIO3 = 000140 G SEEK = 000006 SWCHAN 037154 TSHIL1= 000007 WRIT1 017645 
PRIO4 = 000200 G SEGSTA 032362 G SWITCH 055544 TSLOL!= 000000 WRSEC 023556 
PRIOS = 000240 G SERNM1 002776 SW.PTA 037140 TSLSYM= 010000 XEQDIA 061546 G 
PRIO6 = 000300 G SERNM2 003000 SYS.FT 045460 TSMCAL= 177777 XEQSUB 061534 G 
PRIO? = 000340 G SERNUM 030020 S$LSYM= 010000 TSNEST= 177777 XEQ. CL 041404 
PRNTST 052602 SETLST 025344 TEMP 002656 TSNSKO= 000000 XEQ.CM 036712 
PRO.CM 037324 SETUP 022260 TERM! 057564 TSNSK1= O00004 XEQ. IN 041066 
PRSTRK 002742 SET. MA 037542 TERML| 055372 TSSAVL= 177777 XEQ.LA 035250 
PTAB.S 032344 G SHIFT 062520 G TERNTA 051354 TSSEGL= 177777 XEQ. OP 041160 
PUTCHR 051416 SIGN = Q00004 TEST.M 037264 TSSUBN= 000000 XEQ. PR 034502 
PWR.FA 062672 G SIZE.C 061376 G TIMFLG 032312 G TSTAGL= 177777 XEQ. TE 041224 
PWR.FL 032146 G S'1ZE.M 061314 G TIM. CO 032144 G TSTAGN= 010014 XTIME 060254 G 
PUR.MS 063020 $1Z. TR 061454 TIM. OP 046000 TSTEMP= O00000 XTIMEN 061100 
PWR. SA 063014 SKCYL 024706 TOO. MA 051334 TSTEST= 000001 XTIMST 060276 
PWR. UP 063016 SKER 017606 Tauid 002152 TSTSTM= 177777 XXDP.D 037122 
P.CLK. 036726 SKHS = 000020 TQU11 002157 TSTSTS= 000001 XSALWA= 000000 
ROHOR = 000010 SPEC.U 037252 TQU20 §=©002153 TSSCLE= 010010 XSFALS= 000040 
READ = 000014 SPV. SE 033754 TQU21 002160 T$$DU = 010011 XSOFFS= 000400 
READ.P 057576 G STARTC 061244 G TQU30 §=©002154 TSSHAR= 010013 X$TRUE= 000020 
READI 017672 STFLG 002666 TQU31 002161 TSSHW = 010006 X1X1_ = 072000 
REASON 002662 STRCHR 052272 TQU40) §=002155 TSSINI= 010007 SBREG 037430 
RECER 017532 STREQ. 037074 TQU41 002162 TSSMSG= 010005 SENDAD 061520 G 
RECMS 017404 STRT.T 037330 TQU50 §=©002156 TSSTES= 010012 S$SAV2 062564 G 
REGBAC 062422 G STSEC 003016 TQU51 002163 T1 031046 G SSAV3 062600 G 
REGOMP 025134 STSEC1 003014 TRKCNT 002750 UNI. MA 037254 SSAV4Y 062616 G 
REGSAV 062406 G ST.REQ 037250 TRKFND 002746 UNLOAD 030350 S$SAVS 062636 G 
REQN.P 037334 ST. SET 033574 TST. AB 041600 USER.P 032340 G = 072000 
REQN.T 037326 SUNIT. 037336 TST. TO O33404 USER. T 032342 G 
REV 017635 SUPERV 035314 TYPEC 051730 UUT 002716 
PEYVSK 002712 SUPFLA 032322 G TYPEPC 045624 VAJWR 026524 
RE SET 033524 SUPV.T 032500 G TYPFLA 055246 VALID. 032602 


ABS. 72000 090 


ERRORS DETECTED: 0 


DSKZ: DZRLFA, OSKZ: OZRLFA=OZRLFA. SML.OZRLFA. P11-O02RLFA. SUP 
RUN-TIME: 24 26 .8 SECONDS 
RUN-TIME RATIO: 174/51=3.4 
CORE USED: 17K (33 PAGES) 


